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1.0 INTRODUCTION 


The BAM design is intended to provide a low cost research and 
development system for use by NASA Langley in investigating methods of 
reducing pilot workload and improving safety during sigle pilot IFR 
operations. The NASA Langley investigations will utilize the LaRC 
simulation facilities and general aviation test aircraft. The BAM 
design has been oriented towards a Cessna 172 class of general aviation 
aircraft . 

The Basic Avionics Module (BAM) for General Aviation Aircraft (GAA) is 
intended to provide the functions required to relieve the work load on 
a single pilot operating in today's air traffic control (ATC) 
environment. The BAM utilizes interactive display techniques devised to 
simplify the procedures of selecting the many modes provided by BAM. 
The BAM interactive display techniques are specifically aimed at 
providing assistance to the single IFR pilot during conditions which 
would otherwise cause work load saturation such as changes in flight 
plan route by the ATC controller, operations in high density ATC areas, 
or during emergencies when it is important to have available the 
emergency check list. 

One problem that is universal for single pilot IFR operation is the 
management of paper (flight plans, charts, operation handbook, etc.) 
that a copilot would otherwise assist with. The BAM is specifically 
directed towards managing this cockpit paper. 

Another problem confronting the single pilot in IFR conditions in high 
density ATC areas is the possibility of geographical disorientation 
which can occur when the ATC controller issues numerous radar vectors 
without reference to location or Navigation aids. The BAM provides a 
navigation map display which maintains geographical orientation 
relative to the destination waypoint and the associated navigation aids 
(VOR's, NDB's, and ILS localizers). 

A key design objective for the BAM is to utilize a modular architecture 
so that additional functions can be added to BAM to provide additional 
capabilities such as DME based RNAV and VNAV and vertical guidance. The 
use of a common data bus plus a common data base, which can be accessed 
by any of the avionics functions, provides the desired data base. 

A parallel data bus (the IEEE 488) was selected over a serial data bus 
(e.s. the MIL-STD-1553A) in order to provide adequate data rates for 
the avionic functions using existing available components. The lower 
speed parallel bus is easier to implement than the 1 Mbit/sec 1553 bus. 

The BAM design utilizes a third generation microprocessor to implement 
the distributed microcomputer complex (DMC) . The continuing decrease 
in the cost of microprocessors and their associated memory promise a 
low cost system with the BAM functional features in the near, future. 



2.0 FUNCTIONAL DESCRIPTION 


The BAM functions are presented in figure 2.0-1 which includes Flight 
Management, Navigation & Position Fixing, Lateral Flight Control, and 
the Navigation Map which is displayed on the Avionics Data Control 
Center (ADCC) . The computations to support the BAM functions are 
performed by the Distributed Microcomputer (DMC) which provides for 
functional communications via the common data bus. The ADCC provides 
the means for the single pilot to communicate interactively with the 
BAM functions. The BAM acts as a surrogate copilot to the single pilot 
in IFR operations and helps prevent work load saturation by 

o Aiding the pilot in making enroute ATC changes 
o Assisting in Navigation Orientation in High Traffic 
Density areas 

o Providing rapid access to emergency procedures in 
emergency situations 

The "broken arrow" in figure 2.0-1 implies that the BAM system acting 
as a surrogate copilot prevents the single pilot in an IFR environment 
from becomming saturated by ATC route changes, high density operations 
and emerging situations which may arise. 

2.1 FUNCTION/MODE SELECTION 

The BAM functions and modes are selected by means of interactive ADCC. 
The menus are hierarchical begining with the top level functions as 
shown in figure 2.1-1. When a function is selected from the master 
menu, then the next functional level menu is selected as shown in the 
figure 2.1-1. The functional menus contain the mode selections for the 
selected function. The next level below the functional menus are the 
submenus for selection of submodes, or in some cases an interactive 
display appears which may have one or two options to select. 

At each level in the hierachy of menus there is a selection which 
permits returning to the higher level menus. As an added 'sign post', 
the various level menus are given a decimal 'outline' number to 
indicate the level in the hierarchy for orientation purposes. If at any 
time the pilot becomes confused as to where he is in the 'maze' of 
modes, he can readily 'home' to a familiar high level menu to get re 
orientated . 

The function/mode selection is interactive with the BAM giving prompts 
to the pilot so he does not have to remember complex syntaxes of 
switching procedures. 

Care has been taken in the design of the interactive operating system 
that any mistake in data entry or mode selection can be easily 
recovered from in an unambiguous fashion. 

A key benefit of the interactive hierarchical menu concept is the 
elimination of complex mode switching panels. The ADCC data entry 
.eyboard is very simple compared with the myriad of mode selection 
panels scattered about the cockpit for the various functions of 
conventional avionics. 
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2.2 FLIGHT MANAGEMENT FUNCTION 


The Flight Management Function Menu shown in figure 2.2-1 is selected 

from the master menu. The flight management function includes the 
following modes and subfunctions: 

2.2.1 CHECKLISTS 

Each checklist in the operations manual is stored and can be selected 
by the checklist menu. The Cessna 172 checklists have been programmed, 
however, any aircraft checklists can be programmed. For example, the 
Rockwell 112TC checklists were programmed initially. The checklists are 
permanently stored on a mass memory device on the Avionics Data Control 
Center (ADCC) display. 

The checklists are listed on the menu in the normal sequence they would 
be used during a typical flight. For a given checklist a cursor appears 
next to each item on the checklist when displayed on the ADCC. As the 
enter key is depressed on the ADCC keyboard, the cursor steps to the 
next checklist item in the sequence. When each item has been sequenced 
the checklist menu is again displayed. Figure 2. 2. 1-1 shows additional 
checklist selections as examples. 

Emergency checklists are automatically displayed based upon an 
emergency word which examines sensors and switches which indicate the 
emergency condition. This feature has not been programmed in the BAM 
demonstration software. 

2.2.2 WEIGHT AND BALANCE 

The weight and balance computation mode is also selected from the 
Flight Management Menu as shown in figure 2. 2. 2-1. The pilot enters the 
pilot and passenger weights, the baggage weight, and the fuel on board 
in gallons. The W&B mode then computes the moment arm and gross weight 
and displays the CG on the ADCC display and issues a warning message if 
the weight or CG limits are exceded. 

2.2.3 FLIGHT PLAN 

The flight plan mode is selected from the flight management menu as 
shown in figure 2. 2. 3-1. The first option is for entering an original 
flight plan or revising an existing flight plan. The selection of 
option 1 with the resulting entry of the flight plan data is shown in 
figure 2. 2. 3-1. The first step in the flight plan entry is to enter the 
initial data such as initial fuel, intended cruise % BHP (Brake Horse 
Power) , e tc . 

The next step is to enter the initial Map# as a four digit code. Then 
the waypoints are entered in sequence using the waypoint coding scheme 
shown in figure 2. 2. 3-2 A modified telephone keyboard is used for 
entering the waypoint using coded numbers which are echoed back on the 
display in alphanumeric symbols. As each waypoint is entered the 
desired altitude at the waypoint is designated in thousands of feet. 
The program checks the minimum enroute altitude, (MEA) associated with 
each waypoint and flashes an error message if an altitude below the 
MEA is sel ec ted . 
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In many cases a way point has more than one airway emanating from the 
waypoint with the MEA depending on the direction of flight from the 
waypoint. The waypoint stored in the map data base will include an 
asterisk when the MEA is flight dependent. The multiple MEA's for 
'asterisked' wayoints will be coded in the map data base as shown below 
in table 2. 2. 3-1 by example. 


TABLE 2. 2. 3-1 EXAMPLE OF WAYPOINTS WITH DIRECTION DEPENDENT MEAs 


WAYPOINT DIRECTION OF FLT MEA 

* BFL 32,35,19 30 

26,12 40 

14 60 

* SHAFT 26 40 

08 25 

* ARVIN 12 78 

29 40 

* TAFTO 19 90 

11 100 

29 45 

01 60 

PONDO 30 


The waypoint BFL is a VOR which has six airway segments emanating from 

it. BFL is located near the southern end of the San Joaquin Valley 

with mountainous terrain to the east and south, consequently the MEA is 
highly dependent upon the direction of flight as indicated. BFL is 
coded with an asterisk which means the MEA is direction dependent. The 
direction of flight of the airway is coded with the first two digits of 

the magnetic bearing, the MEA is coded in hundreds of feet (30.53's of 

meters) . When two or more directions of flight have the same MEA, then 
the directions are separated by commas in the data base file. 

The waypoints SHAFT and ARVIN have only two airway segments with 
differnt MEA's for each segment. 

The waypoint PONDO which is not denoted by an asterisk has a single MEA 
independent of direction of flight. 

For the final destination waypoint the altitude entered is LND (land) 
which signals the program the flight plan computations should be 
performed . 

The flight plan computations are displayed on the ADCC. After printig 
out the computed flight plan data, the pilot is given the option of 
selecting an alternate routing. 


The flight plan mode provides for revised routing after the original 
flight plan is entered. The revision could take place, for example if 
the clearance delivery controller issues a different routing than that 
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which was originally filed on the flight plan by telephone, or if the 
enroute ATC controller issues a revised routing. 

After entering the revised routing a new flight plan computation is 
performed . 

During the flight the pliot can select the flight plan display to 
obtain the current flight plan estimates based upon ground speed made 
good and actual fuel rates. 

2.2.4 RESERVES 

During flight the pilot may select the reserves mode which permits the 
pilot to enter any waypoint (which is stored in the data base) and BAM 
will compute and display the reserves based upon the currently 
encountered winds and the current fuel rates. The system issues 
warnings if the selected waypoint is beyond the current range with IFR 
reserves (45 minutes) . The reserve computations include range, fuel 
and endurance. 

The reserves mode is selected from the Flight Management Menu 
(selection 4) shown in figure 2.1-1. After selection of the reserves 
mode (4) the pilot is offered the following selection menu on the CRT 
d i splay: 


RESERVES MENU 

Reserve to Current Destination 1 

Reserves at Other Waypoint 2 

Return to Flight Management Menu 3 


Which Function ? 


The pilot enters his selection by depressing the appropriate number on 
the "telephone" keyboard. If the pilot selects "1," then the 
information is displayed on the CRT screen as shown in figure 2. 2. 4-1. 

In the event the pilot selects a new power setting the alternate 
reserves will be presented in the same format as figure 2. 2. 4-1 but 
with the revised power setting, fuel rate and ground speed displayed. 
This option permits the pilot to assess changes in power settings in 
the current reserves. 

If the waypoint used in the reserves mode is in the current flight 
plan, the program assumes the flight plan route is followed. If the 
waypoint is not in the current flight plan, then the program assumes a 
ruhmbline course from the current position to the waypoint. The 
rhumbline course and distance are displayed for this mode. 



FIGURE 2. 2. 4-1 


RESERVES STATUS 
Fuel Remaining at Destination 
Endurance at Destination 
Range at Destination 
Distance to Destination 
Bearing to Destination 


FF gal 

TT.MM hours & min. 
DD.d N. Miles 
DD.d N. Miles 
BBB degrees 


Your reserves are based on 
rate and winds which are: 

Power Setting 

Fuel Rate 

Winds Aloft 

Ground Speed 

Enter Alternate RPM if you 


current power setting, fuel consumption 

RRRR RPM = HHH.h BHP 
G.g GPM 

WW Kts from DDD degrees 
SSS Kts 

desire reserves for new power setting: RRRR 



2.2.5 FLIGHT PARAMETERS 


This mode displays the current relevent flight parameters upon 
selection of this mode including IAS, TAS, pressure altitude, fuel flow 
rate, OAT, MEA of the current flight plan segment (if on airways or 
RNAV airways), and Brake Horsepower. The flight parameters are based 
on a combination of sensed data and computed data. 

The flight parameters mode is selected by depression selection 5 from 
the flight management menu shown in figure 2. 2. 2-1. The information as 
illustrated in figure 2. 2. 5-1 is displayed to the CRT screen. 


FIGURE 2. 2. 5-1 FLIGHT PARAMETERS DISPLAY 


CURRENT FLIGHT PARAMETERS 
Pressure Altitude 
Minimum Enroute Altitude 
Ground speed 
True Air Speed 
Indicated Air Speed 
Brake Horse Power 
Fuel Flow Rate 
Outside Air Temperature 
Winds Aloft 
Drift Angle 
Head ing 

Bearing/Distance to next Waypt 
ETA to next waypoint 
Magnetic Variation 


HHHHH feet 
HHHHH feet 
SSS knots 
SSS knots 
SSS knots 
PP.p Horsepower 
GG.g gallons/hour 
TT.t degrees Celsius 
WW.w knots from DDD degrees 
DD.d degrees Right or Left 
DDD degrees magnetic 
. BBB/DDD degrees magnetic 
HHMM.m 

DD.d degrees East or West 


* In the event the aircraft is not following a stored flight plan 
route the MEA is shown as "OFF AIRWAYS" 


2.2.6 AIRCRAFT PERFORMANCE 

The Aircraft Performance Modes are selected by selecting function 6 
from the flight management menu shown in figure 2.2-1 which the yields 
the following menu: 
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AIRCRAFT PERFORMANCE MENU 


TAKE OFF PERFORMANCE 1 

CLIMB PERFORMANCE 2 

CRUISE PERFORMANCE 3 

LANDING PERFORMANCE 4 


The aircraft performance algorithms are illustrated in figure 2. 2. 6-1. 
The performance algorithms are based on the Cessna 172 handbook. The 
aircraft performance modes can be called prior to take off or during 
flight, since they are essentially providing handbook data. 

2. 2. 6.1 Take off Performance 

Take off performance is mode '1' from the performance menu. The input 
data is formatted as shown below: 

TAKE OFF PERFORMANCE 


HARD SURFACE RUNWAY — WITH FLAPS UP 

OUTSIDE AIR TEMP, DEG C 

AIRPORT ALTITUDE, FEET 

TAKE OFF WEIGHT, POUNDS 

HEAD WIND, KNOTS 

The take off performance algorithm is presented in figure 2. 2. 6-2. The 
output format of the computation is as follows: 

TAKE OFF DISTANCE TO CLEAR 50 FT. OBSTACLE = FT. 



FIGURE 2. 2 . 6-1 AIRCRAFT PERFORMANCE ALGORITHMS 
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• PERFORMANCE EVALUATION 





figure 2 . 2 . 6-2 TAKE OFF PERFORMANCE 
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After completing the computation the pilot is offered the following 


options: 

CHOOSE FUNCTION: ENTER: 


RETURN TO AIRCRAFT PERFORMANCE MENU 1 

RETURN TO MASTER MENU 2 

RETURN TO TAKE OFF PERFORMANCE 3 


2. 2. 6. 2 Climb Performance 

The climb performance is mode '2'. The climb performance algorithms 
are shown in figure 2. 2.6-3. Following is the selection menu for 
climb performance: 

CLIMB PERFORMANCE MENU 


RATE OF CLIMB AT SELECTED ALTITUDE 1 

TIME/DISTANCE TO CLIMB 2 

FUEL TO CLIMB 3 


The rate of climb mode is '1' and the input data required is as follows 
RATE OF CLIMB AT SELECTED ALTITUDES 


ASSUME: FULL THROTTLE, FLAPS UP, MIX LEANED AT 3000 FT 
ENTER DATA: 

ALTITUDE, FEET 

OAT @ ALTITUDE, DEGREES C 

AIRCRAFT WEIGHT, POUNDS 

The Rate of Climb performance algorithm is also shown in figure 2. 2. 6-3 
Hie output format is as follows: 

RATE OF CLIMB AT FT = FT PER MIN 

After displaying the output the following options are offered: 

CHOOSE FUNCTION: ENTER: 


RETURN TO CLIMB PERFORMANCE MENU 1 

RETURN TO AIRCRAFT PERFORMANCE MENU 2 

COMPUTE ANOTHER ROC CASE „ 3 

RETURN TO MASTER MENU 4 

The time/distance to climb to altitude mode is '2' and the input data 
required is as follows: 

TIME/DISTANCE TO CLIMB TO ALTITUDE 


INPUT DATA: 

INITIAL ALTITUDE, FEET 
FINAL ALTITUDE, FEET 
OAT, DEGREES C 
AIRCRAFT WEIGHT, POUNDS 

The algorithms for the time/distance to climb to altitude are presented 
in figure 2. 2. 6-4. These algorithms are also used for the flight plan 
computation to determine the time and distance for altitude changes. 

The expression for TAS in the figure is derived from the handbook which 
relates TAS to the aircraft weight in lbs. 

The input data format is as follows: 

TIME TO CLIMB FROM FT TO FT MIN 



figure 2. 2.6-3 CLIMB PERFORMANCE ALGORITHMS 
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figure 2. 2. 6-4 CLIMB PERFORMANCE ALGORITHMS 



19 


AIRCRAFT WEIGHT 





DISTANCE TO CLIMB 


•N.MI 


After displaying the results the pilot is offered the following options: 
CHOOSE FUNCTION: ENTER: 


RETURN TO AIRCRAFT PERFORMANCE MENU 1 

RETURN TO CLIMB PERFORMANCE MENU 2 

RETURN TO MASTER MENU 3 


Mode '3' of climb performance is the fuel to climb. The algorithms used 
for this mode are illustrated in figure 2. 2. 6-5. The input data required 
by this mode is as follows: 

FUEL TO CLIMB 


INPUT DATA: 

INITIAL ALTITUDE, FEET 
FINAL ALTITUDE, FEET 
AIRCRAFT WEIGHT, POUNDS 

ENTER: 1 = FROM TAKEOFF 2 = ENROUTE CHANGE 

The output format for the computation is as follows: 

FUEL TO CLIMB FROM FT TO FT = GALS 

After completing the computations the pilot is offered the following 
options: 

CHOOSE FUNCTION: ENTER: 


RETURN TO AIRCRAFT PERFORMANCE MENU 1 


RETURN TO CLIMB PERFORMANCE MENU 2 

RETURN TO MASTER MENU 3 


2. 2. 6. 3 Cruise Performance 

The cruise performance is mode '3' of the aircraft performance menu. 
The cruise performance mode requires the following inputs: 

CRUISE PERFORMANCE 


ASSUME : GROSS WEIGHT = 2300 

STANDARD TEMPERATURE 
LEAN MIXTURE 

INPUT DATA: 

CRUISE ALTITUDE, FT 

ENGINE RPM 

The cruise performance algorithms are given in figure 2. 2. 6-6. These 
algorithms are also used by the flight plan mode. 

The cruise performance data output is as follows: 

% BRAKE HORSEPOWER = % 

TRUE AIR SPEED = KNOTS 

GALLONS PER HOUR = 

After displaying the performance then the pilot is offered the following 


options: 

CHOOSE FUNCTION: ENTER: 


TO RETURN TO AIRCRAFT PERFORMANCE MENU 1 

TO RETURN TO CLIMB PERFORMANCE MENU 2 


figure 2 . 2 . 6-5 CLIMB PERFORMANCE ALGORITHMS (cont. 
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figure 2. 2 . 6-6 CRUISE PERFORMANCE ALGORITHMS 
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TO CALCULATE ANOTHER CRUISE PERFORMANCE 3 

TO RETURN TO MASTER MENU 4 

2. 2. 6. 4 Landing Performance 


The landing performance is mode '4' from the aircraft performance menu. 
The landing performance input data is as follows: 

LANDING PERFORMANCE 


ASSUMES: 40 DEGREE FLAPS 

POWER OFF 

GROSS WEIGHT = 2300 POUNDS 
APPROACH = 60 KNOTS IAS 

INPUT DATA: 

AIRPORT ELEVATION, FEET 

HEAD WIND, KNOTS 

The landing performance utilizes the algorithms of figure 2. 2. 6-7. The 
output format is as follows: 

LANDING DISTANCE OVER 50 FT OBSTACLE = FT 

After printing the output the pilot is offered the following options: 
CHOOSE FUNCTION: ENTER: 


TO RETURN TO AIRCRAFT PERFORMANCE MENU 1 

TO RETURN TO CLIMB PERFORMANCE MENU 2 

TO CALCULATE ANOTHER LANDING PERFORMANCE 3 

TO RETURN TO MASTER MENU 4 



figure 2. 2.6-7 LANDING PERFORMANCE 
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2.3 NAVIGATION 


The navigation function is an important aspect of BAM in relieving 
the pilot workload. Normally enroute navigation is not a difficult 
or stressful task in a well equipped general aviation aircraft, but 
in conditions of heavy precipitation, moderate turbulence, the threat 
of rime ice, and ATC revised routings, the single pilot in IFR can 
begin to make mistakes. The mental strain enhances the feeling of 
overload even though the same navigation workload in VFR conditions 
or smooth on top flying may not be excessive. 

The BAM navigation relies on dual VOR to provide RNAV position and is 
the basis for lateral guidance as described in section 2.5 on flight 
control . 

The navigation features are summarized in figure 2.3-1. The navigation 
function programmed for the BAM demonstration utilizes two VOR bearings 
to update the dead reckoning estimated position. The update computation 
utilizes a deterministic, least squares algorithm to compute the 
current latitude/longitude. It is recommended that when the 
navigation algorithms are revised that a statistical Kalman filter 
be employed for the navigation state update. There was not sufficient 
time in the BAM design effort to complete the Kalman filter algorithms. 

The Navigation Menu is presented below: 
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NAVIGATION MENU 


POSITION INITIALIZATION 1 

POSITION RESET 2 

NAVIGATE 3 

RETURN TO MASTER MENU 4 


The navigation system utilizes a number of dedicated registers in the 
microcomputer complex random access memory to maintain the current 
value of the navigation parameters as indicated in table 2.3-1. 

TABLE 2.3-1 STORAGE REGISTERS FOR NAVIGATION PARAMETERS 


NAVIGATION PARAMETER REGISTER # 

DATA FORMAT 

SOURCE 

Current Latitude 

R1 

LL11 .11 

computed 

Current Longitude 

R2 

LLL11 .11 

computed 

Navigate Mode 

R3 

M 

pilot select 

True Airspeed 

R4 

SSS 

sensed 

Ground Speed 

R5 

SSS . ss 

computed 

Winds Aloft Speed 

R6 

SS . s 

computed 

Winds Aloft Direction 

R7 

DDD.d 

computed 

True Course Made Good 

R8 

DDD.d 

computed 

VOR1 Latitude 

R9 

LL11 .1 

Nav data base 

V0R1 Longitude 

R10 

LLL11 .1 

Nav data base 

V0R1 Bearing From/Name 

Rll 

DDD.d /VVV 

Sensed/data base 

V0R2 Latitude 

R12 

LL11.1 

Nav data base 

VOR2 Longitude 

R13 

LLL11 .1 

Nav data base 

V0R2 Bearing From/Name 

R14 

DDD.d /VVV 

sensed/data base 

VOR3 Latitude 

R15 

LL11.1 

Nav data base 

VOR3 Longitude 

R16 

LLL11 .1 

Nav data base 

V0R3 Bearing From/Name 

R17 

DDD.d/VVV 

sensed/data base 

Magnetic Variation 

R18 

+/-DD.d 

Nav data base 

ADF Latitude 

R19 

LL11.1 

Nav data base 

ADF Longitude 

R20 

LLL11 .1 

Nav data base 

ADF Bearing 

R21 

+/-DDD 

sensed 

NX Waypoint latitude 

R22 

LL1 1.1 

Nav data base 

NX Waypoint Longitude 

R23 

LLL11 .1 

Nav data base 

NX Waypoint Bearing 

R24 

DDD.d 

computed 

NX Waypoint Distance 

R25 

DDD.d 

computed 

NX Waypoint ETA 

R26 

HHMM.m 

computed 

MEA between Lst Wp&Nx Wp 

R27 

HHH 

data base 

Name of Next Waypoint 

R28 

WWWWW 

data base 

Reset Point Latitude 

R29 

LL11 .1 

pilot entry 

Reser Point Longitude 

R30 

LLL11 .1 

pilot entry 

ILS Latitude 

R31 

LL11.1 

data base 

ILS Longitude 

R32 

LLL11 .1 

data base 

ILS Course ( Loci i zr ) /Name 

R33 

DDD/NNNN 

data base 

ILS Outer Marker Latitude 

R34 

LL11.1 

data base 

ILS Outer Marker Long. 

R35 

LLL11.1 

data base 

ILS Middle Marker Lat. 

R36 

LL1 1.1 

data base 

ILS Middle Marker Long. 
Offset Distance From 

R37 

LLL11.1 

data base 

RNAV Course Line 
Required Heading For 

R38 

+/-DDD. dd 

computed 

Nav Mode 

R39 

DDD.d 

computed 
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Table 2.3-1 STORAGE REGISTERS FOR NAVIGATION PARAMETERS (cont.) 


NAVIGATION PARAMETER 
Current Airway Segment 
Current magnetic Heading 
Current Time (GMT) 


REGISTER# 

R40 

R41 

R42 


DATA FORMAT 
VNNN 
DDD.d 
HHMM.m 


SOURCE 
data base 
sensed 
computed 


When the pilot selects position initialization, selection "1" from the 
menu the CRT display requests the pilot to enter the latitude and 
longitude of the point used for intial ization or the waypoint 
designation if the point has been previously stored in the data base. 
Registers R29 and R30 defined in Table 2.3-1 are used for this purpose. 
When the pilot depresses the "return" key on the "telephone" keyboard, 
the contents of registers R29 & R30 are moved to Registers R1 and R2 to 
become the current position. 

When the pilot selects position reset by selecting "2" from the menu, 
the CRT display requests the pilot to enter the latitude and longitude 
of the fix to be used for the position reset. Registers R29 and R30 
are used for the reset position. During this mode the pilot must "fly 
over" the known position stored in R29 and R30 and depress the return 
key to reset the present position to the reset position in R29 and R30. 
The new current position is moved to R1 and R2 from R29 and R30 at the 
instant the return key is depressed. 

The navigation options are presented to the pilot when he depresses the 
navigate selection "3" on the navigation menu as shown below: 


NAVIGATE OPTIONS: 

DISPLAY NAVIGATION DATA 1 

VOR RNAV 2 

ILS APPROACH 3 

RETURN TO MASTER MENU 4 


For Default depress the Return Key 

Note: The default situation is the VOR RNAV mode in which two or more 
VORs are used to update the DR position using the VORFIX routine 
described in section 5.0 and to display the navigation data shown on 
the data display shown later in this section which is always on the 
upper right hand corner of the CRT display 

Selection of option "1" provides additional navigation data display as 
indicated in table 2.3-2 below: 


TABLE 2.3-2 NAVIGATION DATA DISPLAY, OPTION 1 


PARAMETER 

Next Waypoint Name 
Range/Mag. Bearing to Nx Wp 
ETA to Next Waypoint 
Present position Latitude 
Present Position Longitude 
Current MEA 
Ground Speed 
Magnetic Course 


VALUE 

WWWWW 

DDD. d/DDD.d 
HHMM.m 
LL11 .1 
LLL11 .1 
HHHHH 
S S S . s 
DDD.d 


REGISTER# 

R28 

R25/R24 

R26 

R1 

R2 

R27 

R5 

R8+R18 


Selection of option "2" 
RNAV course as shown 


provides additional information relative to the 
in table 2.3-3 below: 


TABLE 2.3-3 


NAVIGATION DATA DISPLAY, RNAV 


PARAMETER 

Next Waypoint Name 
Range/Mag. Bearing to NX WP 
ETA to Next Waypoint 
Lateral Offset Distance 
Required Magnetic Heading 
Actual Magnetic Heading 
Ground Speed 


VALUE 

WWWWW 

DDD.d/DDD.d 

HHMM.m 

+/-DDD . d 

DDD 

DDD 

S S S . s 


REGISTER# 

R28 

R25/R24 

R26 

R28 

R39 

R41 

R5 


Selection of option "3" provides the information relevant to an ILS 
approach to a selected ILS equipped airport. An ILS approach requires 
entering the name or LAT/LNG of the fix used to intercept the localizer 
course (usually a few miles outside the outer marker) and the four 
letter designator of the assigned ILS to be used in the approach. For 
those ILS approaches which include an outer marker (OM) and middle 
marker (MM) the pilot uses the reset mode to indicate that the aircraft 
has arrived at the OM and MM in order to correct the navigation postion 
at the these two points. 


The information displayed for the ILS aproach (option "3") is shown in 
Table 2.3-4 below: 


TABLE 2.3-4 NAVIGATION DISPLAY, ILS APPROACH 


PARAMETER 

VALUE 

REGISTER# 

ILS Name/course 

NNNN/DDD 

R33 

Next Waypoint 

WWWWW 

R28 

Altitude at Next Waypoint 

HHHH 

R27 

Distance to Touchdown 

DD.d 

R25 

Required Magnetic Heading 

DDD 

R39 

Actual Magnetic Heading 

DDD 

R41 

Lateral Offset Distance 

DD.d 

R28 

Ground Speed 

SSS . s 

R5 

The next waypoint during the ILS is sequenced as 

fol lows : 

o Assigned Intercept Waypoint 


o Outer Marker 



o Middle Marker 



o Approach Minimum 



The altitude at the next waypoint 

is either the MEA or 

the ILS Glide 

Slope altitude at the waypoint. 



The software developed during the 

BAM program is described in section 

5.0 which includes flow diagrams and listings for 

that software 


completed. Some of the key navigation equations are presented in Table 
2.3-5 below. The nomenclature used in these equations utilize the 
register definitions of Table 2.3-1. For example sin R1 means sin of 
the contents of register 1 interpreted in degrees or radians as may be 



appropriate for the particular equation. 

TABLE 2.3-5 KEY NAVIGATION EQUATIONS 

Compute Incremental LAT/LNG from dead reckoning: 

AR1 = At R5 COS R8 

AR2 = AT R 5 SIN R8/C0SR1 

Where aT = time increment for dead reckoning update 

Compute LAT/LNG from dead reckoning 

R 1 = R 1 + AR1 
R 2 = R 2 + AR2 

Compute Range, bearing, and ETA from present position to next 
waypo int 

R 2 5 = 60 (R22-R1/C0SR24) , providing COS R24 t 0 
R 2 5 = 60 (R23-R2) COS Rl, if COS R24 = 0 

R24 = INV TAN{Pi (R2-R23) }/{ 180 [In TAN (4 5+R22/2 ) -In TAN ( 4 5+R 1/2 ) ] } 
R26 = R 4 2 + R25/R5 

Compute Ground Speed for one observtion at time T" 

R5 ( T 2 ) = {R25 (T2)-R25(T1) } / { R4 2 (T 2 ) -R 4 2 ( T 1 ) } 

Where T1,T2 are at different times separated by 5 to 10 minutes. 

Average computed ground speed over several observations 
R 5 = {R5(Tl)+R5(T2) + ...+R5(TN) } / { R 4 2 (TN ) -R4 2 (T1 ) } 

Compute wind 

A = R8 - ( R 1 8 + R 4 1 ) 

h = R4 SIN A 
G 1 = R 5 - R 4 ( CO S A) 

R 6 = /n 2 + G1 2 

R7 = R8 + 90 - INV TAN (Gl/h) 


Compute Offset Distance from Course Line 
R38 = R25 SIN ( R 2 4 -R 4 3 ) 

The dead reckoning position R1/R2 is periodically updated by means of 
measuring the bearings to two or mor VORs within receiving range of the 
aircraft position. The flow diagram and listings used for the VOR fix 
are described in section 5.0 under the VORFIX software module 
desc r i pt ion 

The VORFIX method and equations will be described here. The geometry 
for the bearing measurement to one of the multiple VORs is shown in 
Figure 2.3-2. 
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FIGURE 2.3-2 VOR FIX GEOMETRY 

N TRUE 



VORFIX uses the latitudes, longitudes, and frequencies from the Nav 
data base of all the nearby VORTACs as well as the aircraft DR 
position. The bearings from the VOR stations will be obtained by tuning 
the navigation radiow, which will return the magnetic bearing over a 
parallel bus to the computer for the computations. 

VORs used are within 1 degree in latitude and longitude of the current 
aircraft DR position. The available VORs are designated by the 
quadrants they are located in relative to the DR position as shown 
below: 


N 

I 

2 I 1 

I 

W E 

I 

3 I 4 

I 

S 

VORs from each quadrant are relocated if possible in order to reduce 
the GDOP (Geometrical Dilution of Precision) errors. The quadrant 
designations are used to insure proper sign conventions and angular 
results during the computation. 

The compiled bearing from each chosen VOR is found by: 

(LNGyoR * LNGqr) COS LATyoR 

8 = tan' 1 

(LATyoR - LAT dr ) 

and the distance by: 

D - J~ fTLTO v o R - ING dr ) COS LAT vor >* + (LAT vor - IAY dr H' ‘ 

The observed bearing is obtained from the VOR Nav radio. The most 
probable position is found by dropping a perpendicular ffom the DR 





position to the observed bearing as shown in figure 2.4-2. 


The position fix is found by averaging the ALAT and ALNG components 
found for each VOR. 

ALATj + aLATo + . . .ALAT- 
IAT . LAT dr ♦ 1 


and : 

ALNG. + aLNG„ + . . .ALNG 

LNG = LNG dr + * *= - 

n 

The navigation modes recognize the fact that for most IFR flights the 
initial flight phase after take-off is under vector steers from the 
departure controller and the final flight phase is under radar vector 
steers from the approach controller. During radar vectors the 
navigation mode is keeping track of the position by dead recoiling and 
performing dual VOR updates from the VOR stations which are within 
reception range of the present position. When the pilot receives the 
ATC instructions "resume normal navigation" after the departure radar 
steers, or receives the ATC instruction "intercept the localizer and 
contact the tower at the outer marker," then he is ready to fly to the 
next waypoint on his flight plan and always knows where he is relative 
to the next waypoint. Often a flight plan waypoint will be bypassed 
during the radar steers. 

The ADCC always displays the following navigation data when any of the 
navigation modes are selected regardless of the other display modes 
which may be selected at the same time. This data is formatted as 
follows and is displayed in the upper right hand corner of the display: 

********* NAVIGATION DATA ************ 

* * 

•* NEXT WAYPOINT: BFL * 

* RANGE/MAG BRG: 14.7 NMi/023 DEG * 

* ETA: 1047 Z * 

* PRESENT POSITION: LAT 34 15.6 * 

* LNG 118 47.2 * 

************************************** 

The dead reconing algorithm uses true airspeed, estimated wind, and 
magnetic heading to extrapolate the aircraft present position between 
updates. It is not necessary for the pilot to selsct the VORs or ADFs 
being used for position update. The pilot must make sure the VORs and 
ADF are turned on and functioning. The navigation microcomputer issues 
frequency tuning commands to the VOR receivers to tune in VORs within 
+/- 1 degree of latitude and longitude of the present aircraft 

position. The crossing angle of the VOR bearings must be greater than 
30 degrees before the two LOP (line of position) crossings are 
considered a valid position update. However, the BAM demonstration 
software does not yet include this feature. The position correction 
for ADFs will be weighted lower than VOR position corrections in the 
eventual Kalman filter. 
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2.4 NAVIGATION MAP 


The navigation map display is a growth feature, but the navigation map 
data base is utilized for the navigation modes. The BAM navigation map 
coding scheme is illustrated in figure 2.4-1 for the Jeppesen US Low 
Altitude Enroute Avigation Map number3 and 4. Each BAM navigation map 
is a 2 deg. LAT by 2 deg. LNG segment of the complete map. The BAM 
design and demonstration software has utilized map #0422 as an example. 

This map segment contains a number of VORs, NDBs, airways, airports, 
ILSs and waypoints (intersections) which are reasonable representative 
of the US airway structure. It is estimated that this map #0422 would 
require about 1528 bytes of data storage. Any 2 deg. by 2 deg. map 
segment can be expanded into four 1 deg. by 1 deg. segments for showing 
more detail as shown in figure 2.4-1. 

BAM utilizes a MILCO Navigation Map data base defined in figure 2.4-2. 
This unique NAV MAP data base greatly simplifies the pilot's data entry 
requirements. Even though the BAM navigation is conducted in LAT/LNG 
coordinates, it is never necessary for the pilot to enter the waypoint 
LAT/LNG coordinates; he only has to enter the waypoint designation 
using a modified telephone key pad. He enters the telephone code 
numbers and the alphanumeric designation for the waypoint is "echoed" 
back. 

The navigation map data base is stored in mass memory and the various 
BAM functions such as FLIGHT PLAN, NAVIGATION, & NAVIGATION MAP access 
this data base which is transparent to the pilot. For example, if the 
navigation update method used LORAN C or NAVSTAR/GPS instead of dual 
VOR, the pilot's operational procedure would not vary. This feature of 
making the navigation procedures independent of the navigation aid is 
an important contribution of BAM which has significant implication to 
future FAA navigation system updates. 

The navigation map display is a growth feature of BAM and is not a part 
of the present design. The navigation map menu is presented below. 

NAV MAP MENU 


AIRPORT DATA 1 

CURRENT MAP SEGMENT 2 

FLIGHT PLAN ROUTE 3 

STANDARD INSTRUMENT DEPARTURE (SID)... 4 

STANDARD ARRIVAL ROUTE (STAR) 5 

APPROACH PLATE 6 

RETURN TO MASTER MENU 7 


The NAV MAP is displayed "north up" to avoid the complexity of a 
"heading up" oriented display. 

The navigation data base for BAM is stored on a sual floppy disk mass 
memory. A typical 2 deg. LAT by 2 deg. LNG map is estimated to contain 
approximately 1528 bytes of information for the VORs intersections, 
NDBs (including AM broadcase stations), airports, ILSs, and airways. 

It is estimated that there are 213 2 deg. by 2 deg. maps in the 
continental US. Assuming 1528 bytes per 2 deg. by 2 deg. map would 




34 


LNG. 







FIGURE 2.4-2 
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yield 325,464 bytes. An alternate approach to estimating the amount of 
NAV MAP data storage requirements is covered in table 2.4-1. This 
approach yields an estimate of 278,952 bytes. 

If we assume a packing density of 50% on the floppy diskettes due to 
ineff iciencies of the file system, the total storage requirements for 
the US NAV MAP data base is about 605,000 bytes. A single quad density 
5 1/4" diskette planned for BAM contains 315,000 bytes. Consequently, 
it would require two floppy diskettes to contain the NAV MAP data for 
the US. 

The current BAM demonstration NAV MAP does not store the airways. 
However, the final BAM system will store the airways with the 
associated waypoint names. This feature will permit the entering of a 
clearance such as "Bonanza 72D you are cleared from the Orange County 
Airport radar vectors Seal Beach, Victor 65 Blyth, Victor 16 Buckeye, 
Victor 461 Gila Bend, Victor 66 Tuscon,..." The pilot enters the 
following sequence on his keyboard: RV SLI, V64 BLH, V16 BXH, V461 GBN, 
V66 TUS. The airway files are accessed on the NAV MAP data base and 
the flight plan route is displayed on the NAV MAP (mode 2). 

The BAM demonstration sytem has utilized a 128 x 128 resolution display 
for the NAV MAP which is considered too granular to be satisfactory. It 
is recommended that the final NAV MAP display have a 512 x 512 
resolution display with superimposed 5x9 dot matrix alphanumeric 
symbols. Such high resolution display cards are now available for the 
type of microcomputer used in the BAM design. 



TABLE 2.4-1 
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2.5 LATERAL FLIGHT CONTROL 


The BAM lateral flight control system is shown in figure 2.5-1. The 
BAM closes the outer loop flight control in the distributed 
microcomputer (DMC) . The DMC issues an' aileron command to the analog 

autopilot which is assumed to include a yaw damper loop which provides 
turn coordination. The control equations for the lateral flight 
control modes will be discussed later. These control equations define 
how the heading command ipC and bank angle command <J>C are generated by 
the lateral flight control computations. 

The output of the navigation geometry computation is the heading 
command. The dead reckoning is based upon ground speed and ground 
track which in turn are derived from the wind estimate and from the 
aircraft true airspeed. 

The basic navigation geometry provides a heading command which results 
in maintaining the sum of the lateral deviation from the desired 
navigation ground track plus the lateral deviation rate equal zero, 
that is the following lateral guidance equation is imposed: 

Y + KY = 0 

This lateral guidance equation results in a smooth convergence to the 
desired ground track along an exponential trajectory whose shape is 
controlled by the constant K. The ground track in the navigation 
segment between waypoints. 

The dead reckoning position is updated periodically from VOR, NDB , or 
ILS position measurements. The current BAM demonstration system 
includes only the VOR update equations. 

the lateral flight control menu is as follows: 

LATERAL FLIGHT CONTROL MENU 


HOLD HEADING 1 

TURN RIGHT OF LEFT (3 DEG/SEC) 2 

RNAV COUPLING 3 

LOCALIZER COUPLING 4 

TURN TO SELECTED HEADING 5 

ADF COUPLING 6 

VOR COUPLING 7 

DISENGAGE AUTOPILOT 8 

RETURN TO MASTER MENU 9 


2.5.1 HOLD HEADING MODE 

The lateral control system implements the hold heading mode which is 
selected from the lateral flight control menu by selecting the "1" key 
on the "telephone" keyboard. The control equations for the hold 
heading mode are given by: 

^AC = K<j) 4>j_ jjyj + EQN 2.5-1 
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FIGURE 2.5-1 BAM LATERAL FLIGHT CONTROL SYSTEM 
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where 


aileron command 



9 , for 
30°, for 


9 <30° 
9 >30° 


ip = magnetic heading angle 

\ P = heading existing at time the selection "1" is made 

0 

K^, = flight control system gains 

At the time the hold heading mode is selected, the heading existing at 
that time is placed in memory as a reference. The measured heading is 
compared with the reference to generate an error signal. The error is 
multiplied by the gain K^. The resulting error is then added with the 
limited bank angle signal to generate the aileron command . 


These equations are implemented in the flight control microcomputer, 

consequently a sampled data stability analysis must be performed to 

select the gains K. and K, . 

9 r 

2.5.2 STANDARD TURN RATE COMMAND, RIGHT OR LEFT 


The standard rate turn mode is selected by depressing the "2" key from 
the lateral flight control menu. the control equations for the 
standard rate turn are given by: 

5 AC = M^REF^ E QN 2 - 5-2 

_l v 3 

*REF ■ ta " -g 5773- 


where v = true air speed in ft/sec 

g = 32.2 ft/sec 2 (the acceleration due to gravity) 

9REF is the bank angle which will yield a standard time rate of 3 
deg/sec during a coordinated turn maueuver (zero side slip) . The sign 
of 9 REF will determine Whether a right or left turn is executed. The 
gain K 9 is selecyed to give smooth roll into the turn within the limits 
of sampled data stability. 

2.5.3 R-NAV COUPLING 

The RNAV coupling mode is selected by entering "3" on the lateral 
flight control menu. The control equations are given by: 

s nc ~ ♦lim + equ 2.5-3 

^CMD = ♦CRS ' 

_1 ‘ 

A 9 = sin Y/R5 
9 C rs = RNAV magnetic course 
Y = R38/K1 

^LIM = ^ wfien ^REF 
'J’LIM = ‘J’REF when < t > — J’REF 


9 RE p defined in EQN 2.5-2 



Where the register contents are defined in Table 2.3-1, K1 is the RNAV 
gain constant, and are flight control gain constants. 

The RNAV coupling control equation results in an exponential correction 
back to the selected RNAV course line. 

2.5.4 LOCALIZER COUPLING 

The localizer coupling mode is selected by entering "4" on the lateral 
flight control menu. The control equations are given by: 

^AC = % *|_IM + k *U - *CMd) E Q n 2 ' 5 ~ 4 

’I'CMD = R33 “ 

Aip = sin -1 Y/R5 

Y = Y/K2 

Y = R tan n 

where r\ = the localizer error in degrees 

R5 = distance from present position to the localizer 
transmitter 

= R25 (when the localizer is the next waypoint) 

K2 = the displacement gain for the localizer mode 

which control the shape of the capture exponential 
R33 = the localizer CRS 

^LIM = same as for equation 2.5-3 

The localizer coupling control equation linearizes the localizer mode 
by converting the angular deviation n into the lateral off set 
distance. This form for the localizer coupler allows the localizer 
gain K2 to remain constant as the runway is approached. Conventional 
localizer couplers which operate only on the regular data must reduce 
the coupler gain K2 as the runway is approached to maintain stability. 


2.5.5 TURN TO SELECTED HEADING The turn to selected heading mode is 
selected by entering "5" on the keyboard and entering the desired 
heading. The control equation for this mode is as follows: 


6 AC ' K <p ^LIM + V^ REF ) 


EQN 2.5-5 


*LIM 

^REF 


is the same as equation 2.5-3 

is the desired or "set" heading value 


If the reference heading ip REF is considerably different from the 
existing headings , then the aircraft will be commanded to a bank angle 
equal to <j>REF which causes the aircraft to turn towards the desired 
heading at a standard turn rate (3 deg/sec). 


When the aircraft reaches the desired heading it rolls out and 
maintains the reference heading <{>REF. 
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2.5.6 ADF COUPLING 


The ADF coupling mode is selected by entering a "6" on the keyboard 

from the lateral flight control menu. The control equation for the ADF 
coupling mode is as follows: 

6 AC = S ^LIM + K'K’J' " ^CMD^ EQN 2.5-6 

^CMD = 'P + a^adF Tracking inbound 

OR = ip + 180 - Tracking outbound 

Where Ai|; fln r is the bearing to the ADF station relative to the forward 
nLh reference line (FRL) 

The ADF coupling mode as implemented will result in a curved path to 

the ADF station when there is a cross wind. 

2.5.7 VOR COUPLING 

The VOR coupling mode is selected by entering "7" on the keyboard from 

the lateral flight control menu. The VOR coupling mode will be 

implemented the same as the RNAV mode except that it is assumed no 
flight plan has been entered, consequently it will be necessary for the 
pilot to enter the name of the VOR, the radial desired to track, and 
whether the track is inbound or outbound. The control equations are 
given by: 

6 AC ' K* * REF + K,(* - * CM0 ) EQN 2.5-7 

*CMD = fcRS 4 A * 

Where ^RS ls the selected course (radial), 

the + sign is used if 3 thee track is outbound 
the - sign is used if the track is inbound 

'A<J; = sin" 1 Y/R5 

Y = R38/K1 

This coupling control equation will provide an exponential convergence 
to the selected radial. The srtsability of this mode is independent of 
the distance from the VOR since the control law utilizes the lateral 
offset distances from the radial rather than the angular deviation from 
the selected radial. 

It is assumed during this mode that the aircraft is navigating and 
consequently the LAT/LNG position of the aircraft is known. A default 
VOR mode may be selected automatically when the aircraft is not 
navigating in LAT/LNG coordinates. In this case the following control 
equation is utilized: 



V" 


6 AC - 



EQN 2. 5-7.1 

^CMD = 

*CRS 

± Aty 


Atp = 

*SEL 

RADIAL “ ^VOR BRG 

Inbound track 

= 

*SEL 

RADIAL “ ^VOR BRG + 180 ° 

Outbound track 


When this default mode is engaged the stability degrades as the 
aircraft approaches the VOR station since angular, rather than linear 
data is used to define the error between the desired radial and the 
received bearing. 

The lateral directional airplane transfer functions are presented in 
Appendix A which is taken from General Aviation Feedback Control 
Technology Outline which was prepared by Professor Jan Roskam and 
Gerald Jerks of the University of Kansas (reference 1). 
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3.0 BAM SYSTEM DESIGN 


The Basic Avionics Module (BAM) is intended as a research tool for 
NASA Langley to study the problems of single pilot IFR in a single 
engine General Aviation aircraft, such as the Cessna 172, Grumman 
American Traveller, Beech Musketeer, and Piper Cherokee. The BAM 
will be used in the NASA Langley research light aircraft such as 
the Cessna 172. 

The BAM microcomputer equipment (BAMME) will be capable of being 
flown in a light aircraft with the computer elements mounted in 
the baggage compartment strapped down with the baggage elements. 

The display and control elements can be located in the cockpit area. 

The BAMME design is similar to the BAM hardware design described in 
the MILCO briefing to NASA Langley, BR-7806-BAM-199, presented in 
June 1978. 

A number of simplifications have been made to that design by virtue 
of the decision to use the low cost NASA Langley electro-fluidic 
sensors for the magnetic heading and to use all S-100 bus modules 
for the microcomputer complex rather than to use a mixture of 
S-100 modules and SBC-80 cards. 

A DC power supply will be furnished which will convert the aircraft 
12 volt DC battery into the power supply voltages required by the 
microcomputer complex. 



3.1 BAMME CONFIGURATION 

The BAM microcomputer equipment (BAMME) will include the following 
elements: 

o Distributed microcomputer unit with three microcomputer sections 
The microcomputer unit includes six separate module types 
described below with a total of 15 modules 

o Dual Micro-Floppy disk drive 

o 9" TV emulator for cockpit display 

o Data entry keyboard 

o SR-59 calculator 

The BAMME will interface with the following equipment: 

o Dual VOR receivers with BCD (Binary Coded Decimal) interface 
for frequency command and VOR bearing output such as the Collins 

VIR-351 which has digital readout and responds to the BCD 

frequency commands. 

o ADF receiver with BCD interface for frequency command and ADF 
bearing output such as the Collins ADF 650. 

o Electro-fluidic magnetometer with DC output proportional to 
magnetic heading 

o Electro-fluidic true airspeed sensor with digital output with 
pulse rate proportional to TAS 

o Electro-fluidic yaw rate sensor which produces a pulse rate 
proportional to turn rate 

o outside air temperature sensor with DC output proportional to 

OAT ' - ' “ ' ■■■■ ■ ‘ ’ ‘ ■ ■ ■ • • 

o Pressure alitmeter with BCD (Binary Coded Decimal) output 

o Tachometer with digital output with pulse rate proportional 
to RPM 

o Fuel flow meter with pulse rate proportional to gallons per hour 
o Roll Attitude Gyro with DC output 

o Analog autopilot with yaw rate loop closed in the analog 
circuitry and an aileron actuator 

o Analog aileron commands generated by the distributed microcomputer 
complex 

The BAM hardware design configuration is shown in figure 3.1-1. The 
BAM system is divided into the BAM system hardware groups and the BAM 
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microcomputer equipment groups. The microcomputer equipment groups 
include: 

o DISTRIBUTED MICROCOMPUTER COMPLEX (DMC) 
o Microcomputer #1 for sensors includes: 

o 8085 CPU module with 8253 timer, serial RS232C I/O, and 
a 9511 arithmetic processor unit with 32 bit floating 
point math and transcendental functions 
o One 24K byte RAM module 

o An analog interface module (wire wrap) which includes a 
16 channel analog to digital acquisition module with 
12 bit resolution (only 6 channels are used) , a 12 bit 
digital to analog converter, and a 24 bit 8255 programmable 
parallel interface unit. 

o Digital I/O Module #1 (wire wrap) which includes a MC 68488 
IEEE 488 bus chip plus bidirection bus support chips, one 
24 bit 8255 parallel I/O chip, and two 8253 timer chips 
which provide six (6) timer registers for the four serial 
pulse rate sensors 

o Microcomputer #2 for navigation includes: 

o 8085 CPU module with timer (8253) , RS232C port, and a 9511 
arithmetic processor with 32 bit floating point math and 
transcendental function, 
o Two 24K byte RAM modules 

o Digital I/O Module #2 (wire wrap) which includes a MC 68488 
IEEE 488 bus chip plus bidirectional bus support chips, and 
four (4) 8255 parallel I/O (with 96 parallel I/O lines) 
o Bus terminator module provided to terminate the S-100 bus 
on the mother board associated with Microcomputer #2 
o Microcomputer #3 for Flight Management includes: 

o 8085 CPU module with 8253 timer, RS 232C port, and a 9511 
Arithmetic Processor with 32 bit floating point math and 
transcendental functions 
o Two 24K byte RAM modules 
o Video display controller module 
o Floppy disk drive controller modules 

o Digital I/O module #3 (wire wrap) which includes a MC 68488 
IEEE 488 bus chip plus bidirectional bus support chips, and 
one 8255 parallel I/O lines 

The schematics for the 8085 CPU module which includes the AMD 9511 
arithmetic processor chip and other digital I/O is shown in figure 
3.1-2. This is a standard S-100 module which MILCO has modified to 
integrate the CPU and APU functions on a single module. This design 
which has been validated and tested uses the APU in one of the 
available sockets on the board plus necessary jumpers to provide the 
interconnects. This configuration permits operating the 9511 on an 
interrupt basis but not on a DMA basis. 

The schematic for the digital I/O module is shown in figure 3.1-3. The 
digital I/O module is a wire wrap design which provides for the three 
(3) digital I/O modules used by each of the three microcomputers by 
populating the board with the required number of 8253 timer chips 
(maximum of 2) and 8255 programmable parallel I/O chips (maximum of 4) . 

All three versions of the digital I/O module contain the MC 68488 IEEE 
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bus chip and the 3 bidirectional bus support chips to provide the IEEE 
488 bus function. The bus controller function will be provided by 
microcomputer #3. The chip population on the three versions of the I/O 
module are shown in the Table of figure 3.1-3. 

The schematic for the analog module is displayed in figure 3.1-4. The 
16 channel 12 bit analog to digital conversion is provided by the 
analogic MP6812 which has a conversion time of 35 microsec, the digital 
to analog conversion is provided by the MN562 which has a conversion 
time of 1.5 microsec. Also included on the module is an 8255 
programmable parallel I/O chip which provides 24 parallel I/O lines. 

The schematic for the 24K RAM modules used is shown in figure 3.1-5. 
This RAM card is compatible with the 8085 CPU/APU module. The memory 
has 450 ns access time. 

The floppy disk drive controller schematic is shown in figure 3.1-6. 
This controller can provide the interface for two dual disk drives for 
a total of 1260K bytes on line mass memory. The BAM includes a single 
disk drive with 630K memory. 

The video modulator module shown in figure 3.1-7 provides the video 
interface with a CRT monitor to the video amplifier. This module 
provides a 24 line x 80 character alpha numeric display as well as 
limited dot matrix graphics. The video can be positive or reverse. 

o AVIONICS DATA CONTROL CENTER 

o 9" TV driven by the video module in the microcomputer 
#3 for alphanumerics and graphics 
o Displays 256 characters 
o 7 x 10 dot matrix for each character 
o 24 lines x 80 characters 
o characters are x-z addressable 

o Keyboard Data Entry Module 
o Serial RS-232C I/O 
o 55 key keyboard 

o Upper case/lower case alphanumerics 
o ASCII coded 
o Uncoded mode 

o Operates at 2400 BAUD (or slower) 
o "Telephone” Keyboard 

(utilized as an alternate during flight test to the 55 
key keyboard used during simulation and software 
development) 
o Sixteen Keys 
o ASCII coded 

o Contained in a 1.67 x 10 exp 7 nanometer by 1.67 x 10 
exp 7 nm by 7.87 x 10 exp 6 nm (4-1/4" x 4-1/4" x 2" 
expressed in customary units) enclosure 
o RS 232C serial I/O 

o DUAL MICRO FLOPPY DISK DRIVE 
o 77 tracks 
o 16 records/track 
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o 
o 
o 
o 
o 
o 

o SR- 5 9 PROGRAMMABLE CALCULATOR FOR FLIGHT PLAN DATA 
o Connects to DMC thru 11 bit cable/connector 
o Dumps previously stored flight plan data into 
microcomputer #3 RAM memory 

The BAM system hardware groups include: 

o NAVIGATION RADIO GROUPS 
o Two VOR/DME receivers 

o Must accept parallel binary coded decimal (BCD) 
frequency tuning commands (4 digits) 
o Must output parallel BCD VOR bearing signal (3 digits) 
o Must output parallel BCD ILS localizer error signal 
(phase sensitive) to three digits plus a sign bit 
o ADF receiver 

o Must accept parallel BCD frequency commands (4 digits) 
(4 digits) 

o Must output parallel BCD ADF bearing signal (3 digits) 

o SENSOR GROUPS 

o magnetometer Sensor 

o DC output voltage 0 to 5 volts with zero volts 
corresponding to 0 deg/360 deg magnetic heading 
o Input bias current 2 microamps 

o Input impedance 20 M ohms at sample period of IMS, 

.001 micro F input capacitance 

o Outside Air Temperature Transducer 

o DC output voltage 0 to 5v with 0v corresponding to 
0 degrees C 
o Range +/- 60 deg C 

o Same input characteristics as for magnetometer 

o True Airspeed Sensor 

o Pulse rate proportional to true airspeed 
o Pulse amplitude limited to +2.5v with pulse excursions 
from 0 v . 

o Yaw Rate Sensor 

o Same characteristics as true airspeed sensor 

o Altimeter, Pressure Altitude 

o Parallel binary coded decimal output (3 digits) 
o Range - 1000' to + 20,000', 100' resolution 

o Tachometer 

o Same characteristics as true airspeed sensor 
o Fuel Flow Meter 


250 bytes/record 

315.000 bytes/diskette 

250.000 bits/sec data transfer 
30 MS track to track access 

630.000 bytes total storage on two drives 
Modified to accept AC or DC power 
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o Same characteristics as true airspeed sensor 
o AUTOPILOT GROUP 

The autopilot shall consist of a two axis lateral autopilot which 
provides adequate yaw damping augmentation (if required) turn 
coordination, and will accept a DC voltage command scaled such that +/- 
5v DC corresponds to a full scale aileron deflection. The output 
impedance of the driver is 0.25 ohms with the maximum load current 
available of 1.5ma. 

The microcomputer #1 will provide the necessary outer loop flight 
control computations necessary to provide for a stable lateral flight 
control as described in section 2.5. . The autopilot will provide the 
necessary surface actuators. Also a mode switch shall be provided to 
allow autopilot mode control to be exercised by the DMC. 



The software of the BAMME will be designed to provide the functions set 
forth in MILCO spec 7804-BAM-l 90 . 

3.2 EQUIPMENT LIST 

The work breakdown structure for the BAM hardware design configuration 
is shown in figure 3.2-1. All of the distributed microcomputer modules 
are the S-100 bus modules. All are standard off the shelf modules, 
with the exception of the three I/O mo modules. The BAM microcomputer 
equipment (BAMME) list is given in table 3.2.1 The BAM system hardware 
list is given in table 3.2-2. 

The system schematic for BAM is shown in figure 3.1-1, the connector 
list is given in table 3.2-3. The distributed microcomputer is mounted 
in a single enclosure which has three separate mother boards. Two of 
the mother boards are obtained by taking a 10 slot mother board and 
separating it into two. The terminator circuitry on the mother board 
is used for microcomputer #1 and a separate bus board used by 
microcomputer #2 to prevent bus ringing etc. A third 6 module mother 
board is installed in the chassis for microcomputer #3 which also has 
the bus terminator circuitry on the board. 

The sensors interface with microcomputer #1. The sensors are connected 
to the distributed microcomputer (DMC) chassis by means of shielded 
cable terminated in Bendix connectors. The three DC output sensors 
(the magnetic heading, the outside air temperature and the roll 
attitude gyro utilize shielded twisted wire pairs carrying the ground 
wire and the voltage wire. The internal wiring inside the chassis 
utilizes twisted shielded cable with connectors which terminate on the 
analog module. 

The MAG HDG signal is 0 to +5v with 0v corresponding to 0 deg and +5v 
corresponding to 359.9 deg. The OAT signal is +/- 5v with 0v 
corresponding to 0 deg C and +/-5v corresponding to +/- 60 deg C. The 
bank angle signal is +/-5v with 0v corresponding to 0 deg bank angle 
and +/-5v corresponding to +/-50 deg bank angle. 

These three DC signals utilize three channels of the MP 6812 data 
acquisition system located on the analog module of microcomputer #1. 
The 6812 has sixteen single ended or eight double ended ADC channels 
each with 12 bit resolution, three of the double ended channels are 
used leaving ten spare single ended channels. The ADC utilizes a 
multiplexer for the inputs with a single sample and hold and 12 bit 
ADC. The multichannel throughput is 27.5 KHz or a conversion time of 
36 microsec per channel or 27,778 samples per sec throughput. 

The four pulse rate signals are connected to the chassis using a 
shielded twisted pair terminated with a Bendix connector. The internal 
wiring uses shielded twisted pair cable with connectors terminated in 
the digital I/O module #1, which provides connections to four of the 
timer/counter registers in the two 8253 timer chips. 

The 12 bit BCD encoded altitude signal utilizes a 12 conductor ribbon 
cable terminated with a ribbon connector. The internal wiring is on a 
ribbon cable terminated with a printed circuit connector on the digital 
I/O module # 1 . 
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TABLE 3.2-1 BAM MICROCOMPUTER EQUIPMENT LIST Page one of two 
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AC Power Supply has capacity of 30 amps at 1 10V 
DC Power Supplies have capacity of 200W 
Cards require 200W DC power. 
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EXTENDED APPROX 

SYSTEM ELEMENT WBS# VENDOR, VENDOR # QTY WT VOL PWR COST 
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TABLE 3.2-2 BAM SYSTEM HARDWARE 




TABLE 3.2-3 BAM CONNECTOR LIST 


PART NO. 


P1-P7, P9 

MS 3106A-10SL-3S 


J1-J7, J9 

MS 3101A-10SL-3P 


JIO, Jll 

50 PIN RIBBON CROSSOVER 

RECEPTACLE 

PIO, Pll 

50 PIN RIBBON CONNECTOR 


J12 

UG492A BULKHEAD ADAPTER 


P12 

UG88B/U COAX PLUG 


J13 

DB-25S RS232C CONNECTOR 


P13 

DB-25P RS232C PLUG 


J14 

34 PIN RIBBON CROSSOVER 

RECEPTACLE 

P14 

34 PIN RIBBON CONNECTOR 


J15 

20 PIN RIBBON CROSSOVER 

RECEPTACLE 

P15 

20 PIN RIBBON CONNECTOR 



J16 


IEEE 488 INTERFACE CONNECTOR 



The autopilot actuator interfaces with the DMC using a cable consisting 
of a shielded twisted pair terminated in a Bendix connector. The 
internal wiring is via a shielded twisted pair cable connected to the 
Analog module with PC connectors which interfaces to the MN562 digital 
to analog converter (which is a 24 pin DIP) on the module. The MN562 
has 12 bits resolution, converts in 1.5 microsec with an accuracy of 
.012% of full scale. If the full scale aileron deflection is 20 deg 
this corresponds to an accuracy of .0024 deg of aileron. 

The three microcomputers are interconnected via the IEEE 488 parallel 
bus using the three digital I/O modules. The bus is implemented using 
a smart 488 bus chip (the MC 69488) which includes all the bus protocol 
and provides for defining the bus interface as a controller, talker, 
and listener. The controller function is assigned to microcomputer #3 
(digital I/O module #3). The IEEE 488 bus interface for each 
microcomputer can be assigned as either a talker of listener with the 
assignment changeable. Microcomputer #2 is mainly a listener, and #3 
is both a talker and listener as well as being the controller. An IEEE 
488 bus connector is brought to the back of the DMC chassis so that 
other IEEE 488 devices can access the bus during simultaion. Internally 
the IEEE 488 bus connections are made to the three digital I/O modules 
using ribbon cable and PC connectors on the modules. 

A pair of ribbon cables containing 50 conductors each terminated by two 
ribbon chassis connectors are used for each of the three nvaigation 
radios (two VOR/LOC receivers and one ADF receiver) . Internally the 
connections are made to the digital I/O #3 module via two ribbon 
connectors. It would be highly desirable to put each of the navigation 
radios on the IEEE 488 bus which would reduce the amount of aircraft 
cabling from 96 wires to 16 wires, however, this would mean a special 
IEEE 488 bus interface at the radios. 

The dual microfloppy diskette drive is connected to the DMC via a 
ribbon cable to the PL connector on the disk driver module located in 
microcomputer #3. 

The 55 key keyboard as well as the 16 key telephone keyboard are 
connected to the DMC via an RS232C cable terminated in an RS232C 
connector. The internal connections is via a ribbon cable to a 
connector on the CPU/APU module. Each CPU/APU module has a RS232C 
interface, however the only one utilized is that on microcomputer #3. 

The video for the 9" TV CRT display uses a shielded video cable 
connected to a BNC connector. 

The SR-59 calculator is connected to the DMC from an 11 wire shielded 
cable from the cockpit to a Bendix connector on the DMC. The internal 
connection is via a ribbon connecter. A special ribbon cable from the 
SR-59 to a PC connector on the control panel is used to connect from 
the SR-59 printer interface to the calculator. The SR-59 is used to 
enter flight plan data into the DMC using a magnetic card entered into 
the SR-59. 
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4.0 SOFTWARE MODULES 


The work breakdown structure of BAM software is shown in figure 4.0-1. 
The software is broken down into those modules which are operational 
and those modules which are I/O orientated. 

The preliminary BAM software is summarized in figure 4.0-2. The 
application software addressed during the BAM design used NORTHSTAR 
BASIC. A floating point board with floating point BASIC was acquired 
but not used for the BAM preliminary software. The BAM operational 
software will be updated to MICROPOLIS extended BASIC. Also a FORTRANIV 
and PASCAL compiler are available to generate compiled code executable 
by the 8085 microprocessor. 

ihe support software is available software compatible with the 
Micropolis disk drive and provides for both higher order language and 
assembly language programming. 

The common software modules are used by all three microcomputers of the 
DMC and include: 

o APU Floating Point MAth Routines 

This module includes a number of assem-bly language subroutines callable 
by BASIC .which execute the AM 9511 arithmetic processor 32 bit 
floating commands including add, subtract, multiply, and the 
transcendental functions (log, exponentiation, sin, cos, etc.). The 
floating point math utilizes the direct interface between the 8085 CPU 
and the 9511 APU with the results available on an interrupt basis. A 
growth feature can provide DMA control of the floating point APU to 
enhance the computational throughput should this prove to be desorable. 

This feature can be added by another wire wrap module with a DMA 
controller chip. 

o IEEE 488 Bus Control and Access 

This module includes a number of I/O subroutines callable by BASIC 
which provide for: 

o Accessing data fron the bus 
o Sending data to the bus 

The 488 bus protocol is implemented on an MC 68488 chip which is 
programmed to provide the controller function for microcomputer #3 and 
provides the talker listener functions as required by the DMC. 

o Microcomputer Self Test 

This module includes subroutines callable by BASIC which provide for 
testing all memory cells, I/O ports, and performing checks of other 
microcomputer elements. 

The MILCO software development system is showm in figure 4.0-3. MILCO 
has recently acquired a FORTRAN IV Compiler which compiles into machine 
code. However, the compiler was not used on BAM. 



bam FIGURE 4.0-1 BAM: 

SOFTWARE 

wbs SOFTWARE WORK BREAK- 

1010 

-r ^ DOWN STRUCTURE 
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MILCO INTERNATIONAL. INC. 
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FIGURE 4.0-3 
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MILC^ recommends that' a compiler be user during the BAM inplementation 
to reduce memory requirements and to increase the throughput. 

A detailed breakdown of the BAM software modules is presented in table 
4.0-1 which summarizes the status on the preliminary BAM software 
relative to the workbreakdown structure defined in figure 4.0-1. It 
should be noted that 100% complete means coded and validated using 
North Star BASIC. A modest conversion effort is required to convert to 
the more powerful Micropolis extended BASIC. 


TABLE 4 

.0-1 BAM SOFTWARE STATUS RELATIVE TO 

WORK BREAKDOWN 

STRUCTURE 



PROGRAM 

% 

WBS # 

NAME 

MNEMONIC 

COMPLETE 

1010 

BAM SOFTWARE WORK BREAKDOWN STRUCTURE 



2010 

BAM I/O SOFTWARE 



3010 

NAVIGATION RADIO I/O MODULE 



3011 

VOR/LOC TUNING 'MODULE 


0% 

3012 

VOR/LOC BEARING MODULE 


0% 

3013 

ADF TUNING MODULE 


0% 

3014 

ADF BEARING MODULE 


0% 

3020 

SENSOR I/O MODULE 



3021 

ANALOG INPUT MODULE 


0% 

3022 

PULSE RATE INPUT MODULE 


0% 

3023 

PARALLEL DIGITAL INPUT MODULE 


0% 

3030 

PILOT ADVISORY & WARINING MODULE 



2020 

BAM OPERATIONS SOFTWARE 



3040 

SUPPORT SOFTWARE 



3041 

EXTENDED BASIC VERSION 4.0 

BASIC 

100% 

3042. 1 

MICROPOLIS DISK OPERATING SYSTEM 

MDOS 

100% 

3043 

8085 ASSEMBLER & LINE EDITOR 


100% 

3042. 2 

CP/M DISK OPERATING SYSTEM 

CP/M 

100% 

3044 

FORTRAN IV COMPILER 

F80 

100% 

3045 

UCSD PASCAL COMPILER 


AVAILABLE 


application software modules 



3050 

FLIGHT MANAGEMENT MODULES 



3051 . 1 

CHECKLIST 

CHCKLST 

100% 

3051 . 2 

IFR CHECKLIST 

IFRCHKL 

100% 

3052 

WEIGHT AND BALANCE 

WT&BAL 

100% 

3053 . 1 

FLIGHT PLAN 

FLTPLN2 

100% 

3053 . 2 

FLIGHT PLAN UPDATE 

FLTPLNUP 

80% 

3054 

RESERVES 

RESERVES 

0% 

30 55, 

FLIGHT PARAMETERS 

FLTPAR 

0% 

3056.1 

AIRCRAFT PERFORMANCE (TAKE OFF) 

TOPRF 

100% 
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TABLE 

4.0-1 BAM SOFTWARE STATUS RELATIVE 

TO WORK BREAKDOWN 

STRUCTURE (CONT) 

3056 . 2 

AIRCRAFT PERFORMANCE (CLIMB) 

CLBPRF 

100% 

3056.3 

AIRCRAFT PERFORMANCE (LAND) 

LNDPRF 

100% 

3060 

NAVIGATION MODULES 



3061 

POSITION INITIALIZATION 


0% 

3062 

POSITION RESET 


0% 

3063 

DISPLAY NAVIGATION DATA 


0% 

3064 . 1 

VOR RNA V 

VORFIX 

95% 

3064 . 2 

VOR RNA V 

VORRNAV 

0% 

3065 

ILS APPROACH 


0% 

3070 

LATERAL FLIGHT CONTROL MODULES 



3071 

HOLD HEADING 


0% 

3072 

TURN LEFT OR RIGHT 


0% 

3073 

RNA V COUPLING 

FLTCTRL 

100% 

3074 

LOCALIZER COUPLING 


0% 

3075 

TURN TO SELECTED HEADING 


0% 

3076 

ADF COUPLING 


0% 

3077 

VOR COUPLING 


0% 

3078 

AUTOPILOT OUTPUT 


0% 


3080 

NAVIGATION MAP MODULES 


PARTIA 

3081 

ENTER NAV MAP DATA BASE 



3082 

UPDATE NAV MAP DATA BASE 


0% 

3 083 

ACCESS NAV MAP DATA BASE (USED IN FLTPLN) 


90% 

3 084 

DISPLAY NAV MAP FORMATS (GROWTH FUNCTION) 



3090 

COMMON MODULES 



3091 

APU FLOATING POINT ROUTINES (NO LISTINGS 

AVAILABLE) 

10% 

3092 

IEEE 488 I/O 


0% 

3093 

MICROCOMPUTER SELF TEST (NO LISTINGS AVAI 

L.) MEMTEST 

10% 
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5.0 BAM SOFTWARE LISTINGS 


The source listings for preliminary BAM software sdhown completed in 
table 4.0-1 are included in this section. The source listings are 
well documented with REM (remark) statements to explain their operation. 
The listings are in the same order as table 4.0-1 with the WBS# shown 
on the listing for cross reference. 

An additional listing of the BAM operational software including data 
files is shown in table 5.0-1. 
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TABLE 5.0-1 

BAM OPERATIONAL SOFTWARE 


NAME i 

ADDR 

LEN 

TYP 

DESCRIPTION 

MASTER 

4 

4 


MASTER MENU PROGRAM 

VORFIX 

8 

18 

•“* 

POSITION UPDATE BY MULTI. VOR PROGRAM 

POSITION 

26 

18 

2 

DATA FILE FOR POSITION IN LAT/LNG 

MENU 

27 

4 


FLIGHT MANAGEMENT MENU PROGRAM 

CHECKLST 

31 

17 


VFR CHECK LIST PROGRAM 

IFRCHKL 

48 

40 

•—» 

X- 

IFR CHECK LIST PROGRAM 

WT&BAL 

88 

10 

2 

WEIGHT AND BALANCE PROGRAM 

FLTPLN2 

98 

41 

2* 

FLIGHT PLANNING PROGRAM 

0422 

139 

15 

o 

MAP DATA BASE FOR MAP SEGMENT 0422- 

FPDATA 

154 

4 


DATA COMPUTED BY FLTPLN2 PROGRAM 

TOPRF 

158 

6 

2 

TAKE OFF PERFORMANCE PROGRAM 

CLBPRF 

154 

12 

2 

CLIMB PERFORMANCE PROGRAM 

LNDPRF 

1 76 

4 

2 

LANDING PERFORMANCE PROGRAM 

RESERVES 

180 

3 


RESERVES CALCULATING PROGRAM 

FLTPAR 

183 

•3 

2 

FLIGHT PARAMETER DISPLAY PROGRAM 

FLTCTRL 

190 

29 

O 

X- 

LATERAL FLIGHT CONTROL PROGRAM 


0 


ADDR = Sector number of program beginning on disk. Disk has 
350 sectors, 219 have been used so far. 

LEN = Program length in 256 byte blocks 

TYP = Type of file: 2 = program 

3 = data 
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5.1 MASTER MENU PROGRAM 

FIGURE 5.1-1 BAM FLOW CHART FOR MASTER MENU 


MASTER and MENU are program select routines which merely allow the 
operator to choose from a displayed selection of programs. The logic 
for both programs is simple: 



The display format is similar for both menu programs, which consists 
of a selection description, followed by a number, and, if the selection 
is not yet operational, a lower case ' n ' . 



Ml ICO INTERNATIONAL. INC. 
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WBS# 3050.1 


10 REM***** MASTER PROGRAM 5/31/78 
20 A=CALL (10608 , 25)\A=CALL (10 608,11) 


30 REM MASTER MENU PROGRAM 5/26/78 
40 ! TAB (10 ) /'MASTER MENU" 

50 ! 

60 ("FUNCTION: ENTER:" 

70 ("NAVIGATION In" 

80 ("FLIGHT MANAGEMENT 2" 

90 ("NAVIGATION MAP 3 n" 

100 ("LATERAL FLIGHT CONTROL 4 n" 

110 ( 


120 ("WHICH FUNCTION ?" ,\B=CALL (10608 , 29 ) 
130 INPUT " " , A $ 

140 B=CALL (10608,29) 

150 IF A $ > " 9 " THEN 220 
160 A=VAL (A$ ) 

170 IF A 0 2 THEN 220 

180 IF A=1 THEN CHAIN " NAVMENU " 

190 IF A=2 THEN CHAIN "MENU" 

200 IF A=3 THEN CHAIN "MAPMENU" 

210 IF A=4 THEN CHAIN " CTLMENU" 

220 ("RE-ENTER FUNCTION" 

230 B =CALL (10608 , 31 )\A=CALL (10608,31) 

240 GOTO 120 
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WBS# 3050.2 


A=CALL (10608 , 25 )\A=CALL (10608 , 11 ) 

REM FLIGHT MANAGMENT MENU 5/26/78 
! TAB (10) /'FLIGHT MANAGEMENT MENU" 

i 

("FUNCTION: ENTER:" 

("CHECKLIST 1" 

("WEIGHT AND BALANCE 2" 

("FLIGHT PLAN 3" 

("RESERVES 4 n" 

("FLIGHT PARAMETERS 5 n" 

("AIRCRAFT PERFORMANCE 6” 

("WHICH FUNCTION ? " ,\A=CALL (10608 , 29) 
INPUT " " , A$\I F A$= "/" THEN CHAIN "MASTER" 
IF A$="M" THEN CHAIN "MASTER" 


150 A=VAL(A$) 

160 B=CALL (10608 , 29) 

170 IF A=1 THEN CHAIN " CHECKLST" 
180 IF A=2 THEN CHAIN "WT&BAL" 
190 IF A=3 THEN CHAIN "FLTPLN2" 
200 IF A=4 THEN CHAIN "RESERVES" 


210 IF A=5 THEN CHAIN " FLTPAR" 

220 IF A=6 THEN CHAIN " TOPRF" 

230 ("RE-ENTER FUNCTION" 

240 A=CALL (10608 , 31 ) \A=CALL (10608 , 31 ) 
250 GOTO 120 
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5.2 CHECKLIST PROGRAMS 
FIGURE 5.2-1 

CHECK LIST FLOW DIAGRAM WBS# 3051.1 



GOTO "EXTERIOR INSPECTION LIST" 


GOTO "BEFORE STARTING ENGINE LIST" 


GOTO "STARTING ENGINE LIST" 


GOTO "BEFORE TAKE OFF LIST" 


GOTO"NORMAL TAKE OFF LIST" 


CHAIN TO IFR CHECK LIST MENU 


CHAIN TO FLT MGMT MENU 
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MILCO INTERNATIONAL. INC. 




















WBS# 3051.1 


10 DIM Al* < 1 > , A2* ( 1 ) , A3* < 1 ) , A4* ( 1 ) , A5* < 1 ) , A6* ( 1 ) , A7* ( 1 > , AS* ( 1 ) , A9* ( 1 ) 
20 REM CHECKLST PROGRAM 5/31/78 
30 A=CALL ( 1 0608 , 25 ) \A=CALL ( 1 0608 ,11) 

40 ! "CHECKLIST MENU" 

50 ! 

60 ! "FUNCTION: ENTER:" 

70 !A1*,TAB<3>, "EXTERIOR INSPECTION 1" 

SO ! A2* , TAB < 3 > , " BEFORE START I NG ENG I NE 2 " 

90 ! A3*, TAB (3) , "STARTING ENGINE 3" 

1 00 ! A4* , TAB ( 3 ) , " BEFORE TAKEOFF 4 " 

110 !A5*, TAB (3) , "NORMAL TAKEOFF 5" 

1 20 ! A6* , TAB ( 3 ) , " MAX I MUM PERFORMANCE TAKEOFF 6 " 

1 30 ! A7* , TAB ( 3 ) , " CL I MB 7 " 

1 4 0 ! AS* , T AB ( 3 ) , " CRU I S I NG S " 

1 50 ! A9* , TAB ( 3 ) , "I FR CHECKLIST 9" 

1 60 ! A9* , TAB ( 3 ) , " CHECK LIST COMPLETE 10" 

170 ."'WHICH FUNCTON ? ", 

ISO INPUT " ",Q* 

190 IF Q*=" / "THEN CHAIN "MENU" 

200 IF Q*= " " THEN GOTO 330 
210 G=VAL ( Q* ) 

220 IF Q =1 THEN 370 
230 IF Q =2 THEN 690 
240 IF Q =3 THEN 790 
250 IF Q =4THEN 930 
260 IF Q =5 THEN 1110 
270 IF Q =6 THEN 1220 
280 IF Q =7 THEN 1340 
290 IF G =8 THEN 1430 

300 IF Q =9 THEN INPUT" INSERT DISK #302 THEN HIT RETURN", C 
310 IF Q =9 THEN CHAIN " IFRCHKL" 

320 IF G =10 THEN CHAIN "MENU" 

330 ! "RE-ENTER FUNCTION" 

340 A=CALL ( 1 0608, 31 ) 

350 A=CALL ( 10608, 31 ) 

360 GOTO 170 

370 A=CALL ( 10608, 25 ) \A=CALL ( 10608, 1 1 ) 

380 ! "EXTERIOR INSPECTION CHECKLIST" 

390 ! " REMOVE CONTROL WHEEL LOCK" 

400 ! " CHECK IGNITION SWITCH OFF" 

410 ! " TURN ON MASTER SWITCH, CHECK FUEL, TURN OFF MASTER SWITCH" 

420 ! " FUEL SELECT VALVE ON BOTH" 

430 ! " CHECK BAGGAGE DOOR" 

440 ! " REMOVE RUDDER GUST LOCK" 

450 !" UNTIE TAIL" 

460 ! " CHECK RUDDER AND ELEVATOR" 

470 ! " CHECK AILERON" 

480 ! " UNTIE WINGS" 

490 ! " CHECK TIRE INFLATION" 

500 ! " VISUALLY CHECK FUEL, FILLER CAP" 
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510 ! " CHECK OIL LEVEL, 6 GTS MINIMUM" 

520 ! " PULL FUEL STRAINER-DRAIN" 

530 ! " CHECK PROP AND SPINNER" 

540 ! " CHECK LANDING LIGHT" 

550 ! " CHECK NOSE GEAR STRUT " 

560 ! " CHECK STATIC SOURCE FOR STOPPAGE" 

570 ! " REMOVE COVER AND INSPECT PITOT TUBE" 

530 ! " CHECK FUEL TANK VENT FOR STOPPAGE" 

590 ! " CHECK STALL WARNING VENT FOR STOPPAGE" 

600 ! " CHECK AILERON" 

610 1 = 22 . 

620 Al$="*" 

630 FOR R=1 TO Z \A=CALL ( 10603, 31 ) \NEXT R 
640 FOR R= 1 TO Z 
650 INPUT "*",A$ 

660 NEXT R 

670 A=CALL ( 1 0603 , 25 ) \A=CALL ( 1 0603 ,11) 

630 GOTO 20 

690 A=CALL ( 1 0603 , 25 ) \ A=C'ALL < 1 0603 ,11) 

700 .'"BEFORE STARTING ENGINE" 

710 ! 

720 ! " SEATS, SEAT BELTS — ADJUST AND SECURE" 

730 ! " FUEL SLECTOR— BOTH" 

740 ! " BRAKES— TEST AND SET" 

750 ! " RADIOS AND ELECTRICAL EQUIPMENT — OFF" 

760 Z=4 
770 

730 GOTO 630 

790 A=CALL ( 1 0603 , 25 ) \A=CALL < 1 0603, 1 1 ) 

300 ! "STARTING ENGINE" 

310 ! 

320 ! " MIX TURE — R I CH " 

330 ! " CARB HEAT — COLD" 

340 ! " PRIMER — 2 TO 6 STROKES, NONE IF WARM. CLOSE AND LOCK PRIMER" 
350 ! " THROTTLE — OPEN 1/3 INCH" 

360 ! " MASTER SWITCH — ON" 

370 ! " PROPELLER AREA — CLEAR" 

330 ! " IGNITION SWITCH— START (RELEASE WHEN ENGINE STARTS)" 

390 ! " OIL PRESSURE — CHECK" 

900 A3$="*" 

910 Z=S 
920 GOTO 630 

930 A=CALL ( 1 0608 , 25 ) \A=CALL ( 1 0608 ,11) 

940 ! "BEFORE TAKE-OFF" 

950 ! 

960 ! " PARKING BRAKE — SET" 

970 ! " FLIGHT CONTROLS — CHECK FOR FREE AND CORRECT MOVEMENT" 

930 ! " FUEL SELECTOR — BOTH" 

990 ! " ELEVATOR TRIM — TAKEOFF SETTING" 

1000 ! " THROTTLE — 1700RPM" 
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1010 
1 020 
1 030 
1 040 
1050 
1 060 
1070 
1 080 
1090 
1 1 00 
1110 
1 120 
1130 
1 1 40 
1 1 50 
1 1 60 
1 1 70 
1 1 80 
1 1 90 
1 200 
1210 
1 220 
1230 
1240 
1250 
1260 
1270 
1280 
1 290 
1 300 
1310 
1 320 
1 330 
1 340 
1350 
1 360 
1 370 
1 380 
1390 
1 400 
1410 
1 420 
1430 
1440 
1450 
1 460 
1470 
1 480 
1 490 
1500 


! *' ENGINE INST AND AMMETER — CHECK" 

!" SUCTION GAUGE — 4.6 TO 5.4" 

! " MAGNETOS — CHECK EACH, RPM LOSS LESS THAN 125 RPM" 

! " CARD HEAT — CHECK OPERATION" 

! " FLIGHT INSTRUMENTS AND RADIOS — SET" 

!" AUTOPILOT — OFF" 

! " CABIN DOORS AND WINDOW — LOCKED" 

A4$= " 

Z=1 2 

GOTO 630 

A=CALL ( 10608,25 ) \A=CALL < 10608, 1 1 ) 

! "NORMAL TAKE-OFF" 

i 

! " WING FLAPS — O'" 

! " CARS HEAT — COLD" 

! " POWER — FULL THROTTLE" 

! " ELEVATOR — LIFT NOSE WHEEL AT 60 MPH" 

! " CLIMB SPEED — 75 TO 85 MPH” 

Z=5 

A5$="*" 

GOTO 630 

A=CALL ( 1 0608, 25 ) \A=CALL ( 10608, 1 1 ) 

! "MAXIMUM PERFORMANCE TAKEOFF” 

i 

! " WING FLAPS- O'" 

! " CARD HEAT — COLD" 

! " BRAKES — APPLY" 

! " POWER— FULL THROTTLE” 

! " BRAKES — RELEASE" 

! " AIRPLANE ATTITUDE — SLIGHTLY TAIL LOW" 

2=6 

A6$="*" 

GOTO 630 

A=CALL C 10608,25 ) \A=CALL ( 10608, 1 1 ) 

! " CLIMB" 

i 

! " AIRSPEED — 80 TO 90 MPH" 

! " POWER — FULL THROTTLE" 

! " MIXTURE — FULL RICH (MAY BE LEANED ABOVE 3000 FEET)" 
Z=3 

A7$="«" 

GOTO 630 

A=CALL ( 10608, 25 ) \A=CALL < 10608, 1 1 ) 

! " CRUISING" 

i 

! " POWER — 2200 TO 2700 RPM" 

! " ELEVATOR TRIM — ADJUST" 

! " MIXTURELEAN FOR MAXIMUM RPM" 

Z=3 

A8$="*" 


1510 GOTO 630 
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FIGURE 5.2-2 IFR CHECK LIST 



3051.2 


GOTO IFR PRESTART LIST 


GOTO EXTERIOR LIST 


GOTO ENGINE STARTING LIST 


CHAIN TO FLT MGMT MENU 


MILCO INTERNATIONAL. INC. 



WBS# 3051.2 


10 REM ***** THIS IS THE IFR CHECKLIST SUBROUTINE CALLED FROM CHECKLST 
20 REM IFRCHKL 
30 DIM A$<14) 

40 ! CHR$ ( 12) 

50 PRINT" IFR CHECKLIST MENU 1.2.9" 

60 PRINT" " \PR I NT \ PR I NT 

70 PR I NT "FUNCTION: ENTER:" 

SO PRINT 

90 ! A$ ( 1 , 1 ) , TAB ( 3 > 7 "I FR PRESTART 1 " 

100 ! A*<2, 2), TAB<3) , "EXTERIOR 2" 

110 !A$( 3, 3) 7 TAB (3) 7 "TAXI & SHUT DOWN 3" 

120 ! A$ (4, 4 ) , TAB (3 ) , "MISSED APPCH SEGMENT 4" 

1 30 ! A* ( 5 » 5 ) , TAB ( 3 ) , "FI NAL APPCH SEGMENT 5 " 


150 !A$(7, 7), TAB(3), "INITIAL APPCH SEGMENT 7" 

1 60 ! A$ ( 8 7 8 ) , TAB ( 3 ) , " TRANS I T I ON 8 " 

1 70 ! A$ ( 9 , 9 ) 7 TAB ( 3 ) , " LAND I NG ENROUTE 9 " 

1 SO ! A* ( 1 0 , 1 0 ) , TAB < 3 ) , " ENROUTE 10" 

190 !A$<11, 11 ),TAB(3), "TAKE OFF / CLIMB OUT 11" 

200 ! A$ ( 12, 12 ) , TAB (3 ) , "RUN UP 12" 

210 ! A$ ( 13, 13 ) , TAB( 3) 7 "PRETAXI AND TAXI 13" 

220 !A$( 14, 14) ,TAB(3) , "ENGINE STARTING 14" 


230 ! " RETURN TO FLIGHT MGMT MENU.. 15" 

240 INPUT "WHICH FUNCTION ? ",F 
250 IF F=1 THEN GOTO 490 
260 IF F=2 THEN GOTO 730 
270 IF F=3 THEN GOTO 950 
2S0 IF F=4 THEN GOTO 1200 
290 IF F=5 THEN GOTO 1350 
300 IF F=6 THEN GOTO 1530 
310 IF F=7 THEN GOTO 16S0 
320 IF F=8 THEN GOTO 1SS0 
330 IF F=9 THEN GOTO 2070 
340 IF F= 1 0 THEN GOTO 2330 
350 IF F=1 1 THEN GOTO 2590 
360 IF F=12 THEN GOTO 2760 
370 IF F® 13 THEN GOTO 3130 
380 IF F=14 THEN GOTO 3400 

390 IF F=15 THEN INPUT" INSERT DISK #203 THEN HIT RETURN", S$ 

400 IF F=15 THEN CHAIN "MENU" 

410 FOR R=1 TO Z 
420 ! CHR$ ( 31 ) , 

430 NEXT R 

440 FOR R=1 TO Z 

450 INPUT "*",B$ 

460 NEXT R 
470 ! CHR$ (12) 

4S0 GOTO 40 
490 !CHR$(12) 
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500 PRINT 

510 PRINT" IFR PRESTART CHECKLIST" 


520 PRINT' 
530 ! 


540 
550 
560 
570 
5 SO 
590 
600 
6 1 0 
620 


" AIRCRAFT DOCUMENTS ON BOARD" 

" CHARTS, PLATES, LOG, WX , ORGANIZED" 

" AIRSPEED INDICATOR ZERO" 

" ALTIMETER (SET TO FIELD ELEVATION)" 
" CLOCK (WIND S< SET TO GMT)" 

" ENGINE INSTRUMENTS (ON ZERO)" 

" DG UNCAGED" 

" MAG COMPASS FULL OF FLUID" 

" VOR ACCURACY LOGGED" 


630 

640 

650 

660 

670 

680 

690 

700 


! " A/C LOG BOOK CHECKED" 

! " SUCTION GAUGE ZERO" 

! " TURN & BANK CENTERED & FULL OF FLUID" 
! " VERTICAL SPEED INDICATOR ON ZERO" 

! " SET COMM FREQS. " 

! " NAV #2 (ILS) SET DEP. ARPT. APPCH" 
f" NAV #1 SET ENROUTE VOR" 

Z=16 


710 A$( 1 ) = "*" 


II 


720 GOTO 410 
730 ! CHR$ (12) 
740 PRINT " 
750 PRINT " 


760 

770 

1 

1 *» 

INSIDE 

_ _ 

780 

1 H 

INSIDE 

— 

790 

1 •' 

RWING 

— 

300 

1 »' 

RWING 

— 

310 

1 «* 

ENGINE 

— 

320 

1 •' 

ENGINE 

— 

330 

1 »• 

LWING 

— 

340 

1 »» 

LWING 

— 

350 

1 »' 

LWING 

— 

860 

1 *1 

FUS /TAIL 

— 

870 

1 ■» 

FUS/TAIL 

— 

880 

1 » 

FUS/TAIL 

— 

890 

1 •» 

INSIDE 

— 

900 

1 ■» 

INSIDE 

— 

910 

1 " 

OUTSIDE 

— 

920 

Z=1 

5 


930 

A$( 

2)="*" 



940 GOTO 410 
950 !CHR$(12> 
960 PRINT" 


EXTERIOR CHECKLIST" 

II 


MAG OFF, MASTER OFF, FLAPS DOWN, BRAKE ON" 
CONTROLS FREE, PRIME" 

FLAP, AILERON, TIP, LIGHTS, LEADING EDGE, FUEL" 
VENTS, GEAR 22/4, DRAIN, TIEDOWN, DRAIN FUEL" 
SECURE R COWLING, GEN BELT, PULL PROP, AIR FLOW" 
OIL 9, BRAKE FLUID, SECURE L COWLING" 

FUEL, GEAR, VENT, DRAIN, TIEDOWN, STALL WARNING" 
PITOT TUBE, LEADING EDGE, TIP, LIGHTS" 

AILERON, FLAP" 

STATIC PORT, ANTENNAS, STABILATOR, RUDDER, LIGHT 
TIEDOWN, UNDERSIDE, STATIC PORT, STOW TOW BAR" 
BAGGAGE DOOR" 

SWITCH TANKS, MASTER ON, PITOT HEAT ON, FLAPS UP 
MASTER OFF, PITOT HEAT OFF" 

DRAIN FUEL, PITOT HEAT, CLOSE FUEL DRAIN DOOR" 


TAXI S< SHUT DOWN" 


970 PRINT" " \PRINT 

980 ! " FLAPS UP" 

990 ! " MK 7 ON ( OFF ) " 

1000 ! " MK 5 OFF (ON)" 



OFF" 


1010 ! " 
1020 ! " 
1 030 ! " 
1 040 ! " 
1 050 ! " 
1060 ! " 
1 070 ! " 
1030 ! " 
1090 ! " 
1100 ! " 
1 1 1 0 " 
1120 ! " 
1130 !" 
1 1 40 ! " 
1 1 50 ! " 
1160 ! " 


ADF OFF" 

NAV 122 
XPDR OFF" 

FUEL PUMP OFF” 

STROBE OFF" 

REMOTE COMPASS OFF" 

LANDING LIGHTS (AS NEEDED)" 

PITOT HEAT OFF" 

CARD HEAT OFF" 

TURN 8< BANK OFF" 

CLOSE FLIGHT PLAN (NO TOWER)" 

RADIOS OFF, IDLE MAG CHECK" 

RPM 1000 12000, MIXTURE IDLE CUT OFF" 
BEACON OFF, MAGS OFF, MASTER OFF" 

LOG TIME, SECURE CONTROL SURFACES" 

TIE DOWN AIRCRAFT, LOCK DOOR" 


1 170 

Z = 1 9 



1130 

A$ ( 3 ) 

= "*" 


1190 

GOTO 

410 


1 200 

REM 



1210 

! CHR$ (12) 


1 220 

1 

MISSED APPCH SEGMENT" 

1 230 

1 »• 


- II 

1 

1 " 

TURN TIME TWIST THROTTLE TALK 

TRACK" 

1240 

1250 

1260 

1 I* 

GUMP" 


1270 

1 »» 

NO TURN BEFORE MAP" 


1230 

1 " 

CHECK MISSED APPCH ALT & HDG " 


1290 

! 11 

REPORT TO TWR" 


1 300 

i •• 

LANDING LIGHTS OFF" 


1310 
1 320 

t »• 

Z=7 

CONTACT APPROACH CONTROL" 


1330 

A$ ( 4 ) 

= "■#." 


1340 

GOTO 

410 


1350 

REM 



1360 

!CHR*( 12) 


1370 

PRINT 

" IFR FINAL APPCH 

SEGMENT 

1 330 

PRINT 

II 


TURN-T I ME-TW I ST-THROTTLE-TALK- 

-TRACK" 

1 390 
1 400 

1 

1 *• 

1410 

1 *• 

START CLOCKS AT FAF" 


1420 

1 •> 

REPORT FAF" 


1430 

1 •* 

GUMP" 


1440 

1 H 

SCAN ALT/MDA" 


1450 

1 " 

SCAN TIME/MAT" 


1460 

1 »» 

DESCEND TO MDA/DH" 


1470 

1 ** 

SMALL CORRECTIONS" 


1430 

» ** 

FIELD IN SIGHT" 


1490 

1 '* 

FLAPS AS NEEDED" 


1500 

Z=10 





1510 A$(5)="*" 

1520 GOTO 410 
1530 REM 
1540 ! CHR$ ( 12 ) 

1550 PRINT" IFR INTERMEDIATE SEGMENT" 

1560 PRINT" 

1570 ! 

1530 ! " TURN-T I ME-TW I ST-THROTTLE-T ALK-TRACK " 

1590 ! " DESCEND TO IFR ALT." 

1600 ! " GUMP" 

1610 ! " LANDING LIGHTS ON" 

1620 ! " SCAN APPCH PLATE" 

1630 ! " MAINTAIN APPCH SPEED" 

1640 ! " CONTACT TOWER" 

1650 Z=7 
1660 A$<6)="*" 

1670 GOTO 410 
1630 REM 
1690 f CHR$ ( 12 ) 

1700 PRINT" IFR INITIAL APPCH SEGMENT" 

1710 PRINT" 

1720 ! 

1730 ! " TURN-T I ME-TW I ST-THROTTLE-T ALK-TRACK" 

1740 ! " SLOW TO APPCH SPEED" 

1750 DESCEND TO IFR ALT." 

1760 ! " SCAN APPCH PLATE" 

1770 ! " TIME LEGS" 

1730 ! " SET ADI" 

1790 ! " SET DG BY COMPASS" 

1300 ! " LOAD HP25 MDA & TIME TO MAP" 

1310 ! " SET REMOTE COMPASS POINTER" 

1820 ! " SET ILS OBS CRS" 

1330 ! " SET ALTIMETER" 

1840 ! " CHECK OAT" 

1350 Z=12 
1860 A$(7)="*" 

1870 GOTO 410 
1830 REM 
1390 ! CHR$ (12) 

1900 PRINT" IFR TRANSITION SEGMENT" 

1910 PRINT" " 

1920 ! 

1930 ! " TURN-TIME-TWIST-THROTTLE-TALK-TRACK" 

1940 DESCEND TO IFR ALT" 

1950 ! " SCAN APPCH PLATE" 

1960 ! " STUDY FINAL APPCH CRS" 

1970 ! " STUDY TIME TO MAP " 

1980 ! " STUDY MDA OR DH" 

1990 " STUDY AIRPORT DIAGRAM" 

2000 ! " STUDY MISSED APPCH" 
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20 1 0 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2 1 00 
2110 
2120 
2 1 30 
2140 
2150 
2 1 60 
2 1 70 
2 1 80 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 


!" PITOT HEAT AS NEEDED" 

" COPY APPCH CLEARANCE" 

! " CARD HEAT AS NEEDED" 

1=11 

A$(8)="*" 

GOTO 410 
REM 

!CHR*< 12) » 

PRINT" I PR LANDING ENROUTE CHECKLIST" 

PR! NT" 

i 

! " WX (AT IS) OBTAIN" 

! " SCAN APPCH. PLATE" 

! " GROLINDSPEED ON FINAL DETERMINED" 

! " TIME FAF TO MAP DETERMINED" 

! " TIME TO START DESCENT" 

! " SET DG BY COMPASS" 

! " CHECK OAT" 

! " SEAT BELTS FASTENED" 

! " SELECT FULLEST TANK" 

! " DEFROSTER AS NEEDED" 

! " RESET CLOCK SECOND HAND" 

! " MKR BCN SPKR ON ( TEST ) " 

! " TUNE VOR I DENT" 

! " TUNE ILS I DENT" 

! " TUNE ADF & I DENT" 

! " TUNE TWR #2 RADIO" 

! " PITOT HEAT AS NEEDED" 

! " SET ALTIMETER" 

Z = 18 

A$ ( 9 ) = "•#•" 

GOTO 410 


2330 REM 
2340 ! CHR$ (12) 


2350 PRINT" IFR ENROUTE CHECKLIST" 

2360 PRINT " " \PR I NT 


2370 ! " CRUISE POWER SET" 

2380 !" MIXTURE / EOT SET" 

2390 ! " CARB HEAT AS NEEDED" 

2400 ! " OAT CHECKED" 

2410 ! " FUEL MGMT" 

2420 ! " PITOT HEAT AS NEEDED" 

2430 ! " SET DG BY COMPASS" 

2440 ! " OIL PRESSURE / TEMP NORMAL" 
2450 ! " FUEL PRESSURE NORMAL" 

2460 ! " FUEL PUMP OFF" 

2470 ! " GENERATOR CHARGING" 

2480 ! " SUCTION 4-5 IN. " 

2490 ! " SET ALTIMETER" 

2500 ! " RUDDER TRIM BALL CENTERED" 



2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 


! " INDENT VORS" 

! " FCST / CURRENT WX REPORTS" 

! " REPORTS TO ATC" 

! " MAINTAIN MEA / MOCA" 

! " COM FAILURE SEE FAR 91.127" 

Z=19 

A$( 10)="*" 

GOTO 410 
REM 

! CHR* (12) 

PRINT" TAKE OFF / CLIMB OUT CHECKLIST" 

PR! NT" 

! " DG SET TO RUNWAY HEADING" 

! " ADI WINGS LEVEL" 

! " ROTATE AT SG KTS" 

! " RETRACT GEAR" 

! " NORMAL CLIMB 90 KTS" 

! " Vx = 70 KTS, Vy = 80 KTS" 

! " REDUCE POWER 24 ' -' 2400 RPM" 

! " XPDR ON" 
i " CONTACT DEPARTURE" 

! " RETURN TO TOWER (NEGATIVE CONTACT)" 

Z=10 

A$ (11)="*" 

GOTO 410 


2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2380 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 


REM 

!CHR*(12>, 

PRINT" RUN UP CHECKLIST" 

PRINT" " 

! " BRAKE ON " 

! " SWITCH TANKS" 

! " SET 1700 RPM" 

! " CHECK M I XTURE CONTROL " 

! " CHECK CARB HEAT" 

! " SET 2000 RPM" 

! " CHECK MAG DROP" 

FULL IDLE-THEN 1000-15000 RPM" 

! " SET TRIM TAB" 

! " AUTO PILOT OFF" 

! " CHECK CONTROL SURFACES (FLAPS UF’)" 
! " DOOR CLOSED & LOCKED" 

! " SEAT BELTS" 

! " FUEL PUMP ON" 

! " EMERGENCY GEAR HANDLE CLEAR" 

! " RECEIVE CLEARANCE" 

! " XPNDR SET- ON" 

COM FREQ SET " 

! " TWR FOR TAKE OFF CLEARANCE" 

! " RECORD TIME" 

! " STROBE ON" 


" \ PR I NT \PR I NT 



BRAKE OFF 


2=22 

A$ ( 12 ) = "•#•" 
FOR R=1 TO Z 
! CHR$ ( 31 ) , 
NEXT R 

i 

FOR R=1 TO Z 
INPUT "*",B* 
NEXT R 
! CHR$ ( 12 ) 
GOTO 40 
REM 

!CHR$< 12) 
PRINT" 

PRINT- 
ER I NT 


PRETAXI AND TAXI CHECKLIST" 


1 80 

1 " 

RADIOS ON, XPDR STBY" 

1 90 

1 *» 

ROTATING BEACON ON" 

200 

t " 

TURN & BANK ON" 

210 

1 " 

GENERATOR CHARGING" 

220 

1 «' 

XMTRS CHECKED" 

230 

1 •» 

OBTAIN AT IS INFORMATION" 

240 

! M 

OBTAIN TAXI CLEARANCE" 

250 

i '» 

SET DG / WET" 

260 

i »i 

SET ADI LEVEL" 

270 

i *i 

SET ALTIMETER (ERROR < 75FT) 

280 

i *• 

ADF POINTS TO LOCAL NDB" 

290 

i " 

NAV SET FOR IFR APPCH" 

300 

i »» 

TEST AUTO PILOT OPERATION" 

310 

! 11 

BRAKE OFF" 

320 

1 H 

CHECK TURN S< BANK" 

330 

1 *• 

CHECK DG" 

340 

1 •• 

CHECK ADI" 

350 

1 «• 

CHECK ADF" 

360 

1 •» 

VQR ACCURACY CHECK" 


Z=19 

A$( 13)="*" 
GOTO 410 
REM 

! CHR$ ( 12 ) ? 
PRINT- 
PRINT" 


ENGINE STARTING CHECKLIST" 


3440 

3450 

1 11 

BRAKE ON, RADIOS OFF 

3460 

1 <1 

RADIOS OFF" 

3470 

1 >■ 

CIRCUIT BREAKERS IN" 

3480 

1 (1 

GEAR SWITHC DOWN" 

3490 

1 » 

EMPTIEST TANK" 

3500 

1 11 

CARB HEAT OFF" 
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510 

i ” 

PROP IN” 

520 

1 " 

MIXTURE RICH" 

530 

1 l» 

MASTER SWITCH ON " 

540 

1 II 

FUEL PUMP ON " 

550 

» II 

CHECK FUEL PRESSURE" 

560 

1 ■■ 

PRIME, FUEL PUMP OFF" 

570 

1 H 

THROTTLE <l/4">" 

580 

1 'I 

MAGS ON, CLEAR PROP" 

590 

1 'I 

START ENGINE (LOG TIME)" 

600 

1 'I 

MAGS BOTH, 1000 RPM" 

610 

1 II 

OIL PRESSURE CHECKED" 

620 

P I' 

VACUUM 4-5 IN" 

630 

1 'I 

FUEL GAUGES CHECKED" 

640 

1 ‘I 

GEN CHARGING AT 1500 RPM 

650 

1 H 

SEATS BELTS ON", 

660 

670 

Z=2 1 

A$< 14 ) ="#" 


3680 GOTO 3040 
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5.3 WEIGHT AND BALANCE PROGRAM 

TABLE 5.3-1 is a list of symbols for weight and balance. 
FIGURE 5.3-1 WEIGHT AND BALANCE FLOW DIAGRAM 








SYMBOLS FOR W&B FLOW CHARTS, TABLE 5.3-1 


A EXjmmy for cursor control 

B Baggage lever arm 

Cl Pilot weight, pounds 

C2 Copilot weight, pounds 

C3 Passenger weight, pounds 

C4 Passenger weight, pounds 

C5 Fuel weight, pounds 

C6 Baggage, pounds 

E Bnpty weight of airplane 

F Fuel lever arm 

G1 Fuel, gallons 

M2 Moment of loaded plane 

M Moment used for plotting 

Ml Moment of empty plane 

P Passenger (rear) lever arm 
Pi Pilot (front seat) lever arm 

R Loop variable 

W Weight of loaded plane 

W1 Weight used for plotting 

W9 Weight (plotting) loop 

Y Aft C. G. limit 

Y1 Forward C. G. limit 



WBS# 3052 


10 A=C ALL (10608, 25 )\A=CALL (10608,11) 

20 REM ** WEIGHT AND BALANCE, DATA FOR CESSNA 172 
30 E=1 364 \REM EMPTY WT OF AIRPLANE 


40 F=48 . 25\REM FUEL LEVER ARM 

50 Pl=37. 5 \REM PILOT LEVER ARM 

60 P=7 3 . 00 \REM REAR SEAT LEVER ARM 

70 B =95.0 \REM BAGGAGE LEVER ARM 

80 M 1=51 . 7 \REM MOMENT OF EMPTY PLANE/1000 

90 ! " WEIGHT AND BALANCE" 

100 ! 

110 ! " WEIGHT OF PILOT: LBS ", 

120 GOSUB 450 
130 C 1 =VAL ( A$ ) 

140 OUT 2,29 

150 ! TAB (30) /’COPILOT: LBS ", 

160 GOSUB 450 
170 C2=VAL(A$) 

180 OUT 2,29 
190 ! 

200 ! " REAR SEAT PASSENGER: LBS ", 

210 GOSUB 450 


220 C3=VAL(A$) 

230 OUT 2,29 

240 !TAB (30) /'PASSENGER: 

250 GOSUB 450 

260 C4=VAL(A$) 


270 OUT 2,29 


LBS " 


280 
2 90 
300 
310 
320 
330 
340 
350 


"FUEL: GAL ", 
GOSUB 450 
G 1=VAL ( A$ ) 

OUT 2,29 

! TAB (30)," BAGGAGE 
GOSUB 450 


LBS 


/ 


360 C6=VAL(A$) 

370 OUT 2,29 
380 ! 

390 C5=G 1*6 \REM FUEL WT IN LBS 


400 M=((C1+C2)*P1+(C3+C4)*P+C 5*F+C 6*B) /1000+Ml 
410 W=C 1+C 2+C 3+C 4+C 5+C 6-136 


420 Y = . 047 5*W+71 

430 IF W>4 50 THEN Yl = . 0593 75*W+4 2 ELSE Yl=3 . 44 4444E-0 2*W+52 . 5 
440 GOTO 490 

450 FOR R=1 TO 4\A=C ALL (1 0 608 , 8 ) \NEXT R 
460 INPUT1 " " ,A$ 

470 IF A$= "M" THEN CHAIN "MENU" 

480 RETURN 
490 W1=W+E+151 
500 M=M/1 . 6 

510 A=CALL (10608 , 25 )\A=CALL (10608 , 11 ) 

520 ! " C.G. FORWARD / C.G. OK / C.G. AFT" 

530 FOR W9=2500 TO 2350 STEP -50 

540 IF W1<W9 AND Wl>W9-50 THEN ("ERROR OVER GROSS" , TAB (M/1 . 5) 
550 NEXT W9 

560 (TAB (56) ," " 

570 FOR W9=2 300 TO 1950 STEP -50 
580 Yl = . 059375* ( W9-1 51 5) +4 2 
590 Y 1=Y 1/1 . 6 
600 Y = . 047 5 * ( W9-1 51 5 ) +7 1 


,"* "ELSE! 
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610 Y=Y/1.6 

620 IF Y>7 9 THEN Y=79 

630 IF Wl<=W9-50 OR Wl> W9 THEN 680 

640 IF Y1<M AND M<Y THEN 720 

650 IF Y1>M THEN 700 

660 J " ERROR AFT CG ", TAB (Y 1 TAB (Y 1 TAB (M) ,"* " 

670 GOTO 730 

680 ! W9 , TAB (Y 1 ) ,"/" , TAB (Y ) 

690 GOTO 730 

700 ! " CALL FAT-SO'S ANONYMOUS! " , TAB ( M) , TAB (Y 1 TAB (Y ), "/" 

7.10 GOTO 73 0 

720 !"WT & BAL O . K " , TAB ( Y 1 ) ,TAB(M) , " * " , TAB ( Y ) 

730 NEXT W9 

740 FOR W9=l 900 TO 1400 STEP -50 

750 Yl=3.44444E-2* ( W9-1 51 5 ) +52 . 5 

760 Y 1 =Y 1 /1 . 6 

770 Y=. 0475*( W9-1 51 5 ) +71 

780 Y=Y/1.6 

790 IF W9C1951 AND W9>1849 THEN Y1=Y1-1 

800 IF W9=l 950 THEN Y=Y-1 

810 IF WKW9-50 OR W1>W9 THEN 860 

820 IF Y1<M AND M<Y THEN 900 

830 IF Y1>M THEN 880 

840 ! " ERROR AFT CG " , TAB (Y 1 TAB (Y ),"/" , TAB ( M) " 

850 GOTO 910 

860 ! W9 , TAB (Y 1 ) / TAB (Y ) 

870 GOTO 910 

880 ! " ERROR HELIUM IN BAGGAGE" , TAB ( M) TAB (Y 1 TAB (Y ) , "/" 
890 GOTO 910 

900 !"WT & BAL O . K " , TAB (Y 1 TAB ( M) TAB (Y ), "/" 

910 NEXT W9 

920 ! TAB (30) " 


93 0 ! " 1 ANOTHER WEIGHT & BALANCE" 

94 0 ! " 2 RETURN TO MENU" 


950 INPUT "WHICH FUNCTION ? " f A 
960 IF A=2 THEN CHAIN "MENU" 

970 GOTO 10 



5.4 FLIGHT PLAN PROGRAM 

FIGURE 5.4-1 FLTPLN FLOWCHART . . .FLIGHT PLAN FLOW CHART 







1 



FLIGHT PLAN 
FLOW CHART #2 




MILCO INTERNATIONAL. INC. 
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FLIGHT PLAN SYMBOL TABLE 5 . 4-1 


A 

A$ 
AS 
A 9 
A@ 
B$ 
B1 
B2 
B3 
B@ 
C$ 
C2 

ce 

D1 

oe 

E 

E$ 
E2 
E3 
FI 
F2 
F3 
F4 
F5 
G$ 
G1 
G2 
HI 
H3 
H9 
1 $ 
ie 
J2 
J3 
J4 
J5 


DUMMY FOR CURSOR CONTROL 
AIRPORT NAME FROM DISK- 
NUMBER OF LAST WAYPOINT 
WAYPOINT POINTER 
AIRPORT PARAMETER ARRAY 
NDB NAME FROM DISK 
INPUT FORMAT TAB VARIABLE 
INPUT FORMAT TAB VARIABLE 
INPUT FORMAT TAB VARIABLE 
NDB PARAMETER ARRAY 
ALTITUDE MNEMONIC: 

ME A INDICATOR 

ALTITUDE INPUT 

WINDS ALOFT DIRECTION 

WAYPOINT NUMBER INPUT 

ALT < MEA ERROR FLAG 

INPUT VARIABLE 

ESTIMATED TIME ENROUTE 

ESTIMATED TOTAL TIME 

NUMBER OF VOR ON MAP 

NUMBER OF INTERSECTIONS ON MAP 

NUMBER OF AIRPORTS ON MAP 

NUMBER OF ILS ON MAP 

NUMBER OF N.D.B. ON MAP 

WAYPOINT MNEMONIC 

INITIAL FUEL 

GF'H 

TEMP AT AIRPORT 
DIST FROM WPT ( A9 ) TO (A9+1) 
TOTAL DISTANCE OF FLIGHT 
ILS NAME FROM DISK 
ILS PARAMETER ARRAY 
USED IN COURSE COMPUTATION 
SAME 
SAME 
SAME 


J6 

J7 

J7 

JS 

J9 

K2 

Ke 

L2 

L0 

Me 

N$ 

Ne 

o$ 


SAME 

SAME 

MAGNETIC HEADING- 
SAME 

TRUE COURSE 
RADIAN LAT ARRAY 
WAYPOINT LATITUDE ARRAY 
RADIAN LNG ARRAY 
WAYPOINT LONGITUDE ARRAY 
MAGNETIC VARIATION FOR MAP SEC 
INTERSECTION NAME FROM DISK 
INTERSECTION PARAMETER ARRAY 
CURRENT MAP SECTOR NUMBER 


96 



FLIGHT PLAN SYMBOL TABLE 5.4-1 (CONT.) 


P 

P$ 

PI 

P2 

P3 

P4 

P5 

R 

R<*> 

Ri 

R2 

S$ 

T$ 

T 1 

T2 

T 4 

U* 

V* 

V@ 

W 

W1 

X 

X 

Y 

Y 
Y 1 
Z* 


PI OR 3.14159... 

INITIAL MAP SECTOR NUMBER 
NUMBER OF VOR ON MAP 
NUMBER OF INTERSECTION PARAMET 
NUMBER OF AIRPORT PARAMETERS 
NUMBER OF ILS PARAMETERS 
NUMBER OF N.D.B. PARAMETERS 
LOOP VARIABLE 

STRING OF ALL INTER. NAMES 
REMAINING FUEL 
TIME RESERVES 

STRING OF ALL AIRPORT NAMES 
STRING OF ALL ILS NAMES 
CRUISE POWER SETTING (7.) 
ESTIMATED TIME OF DEPARTURE 
AIRSPEED 

STRING OF ALL NDB NAMES 
VOR NAME AS READ FROM DISK 
VOR PARAMETER ARRAY 
LOOP VARIABLE 
WINDS ALOFT WINDSPEED 
LOOP VARIABLE 

DUMMY FOR DEG TO RAD CONVERSIO 
DECIMAL LAT 

DUMMY FOR ARCS IN FUNCTION 
DECIMAL LAT OF NEXT WAYPOINT 
STRING OF ALL VOR NAMES 
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WBS# 3053.1 


10 REM FLTPLN 8/31/78 
20 i CHR$ (12) 

30 OPEN #2 , " FPDATA" 

40 REM FNS(X) RETURNS ARCS IN (X) 

50 DEF FNS (X) 

60 Y=l. 57072 88-. 21 21 144 *X+. 074261 *X "2-. 01 872 93 *X *3 
70 Y=3 . 14 1 592 654/2-SQRT (1 -X ) *Y 
80 RETURN Y 
90 FNEND 

100 DEF FNR (X)=X*3. 141592654/180 
110 DIM D(20) ,0(20) , K (20 ) , L (20 ) 

120 REM *********** INPUT INITIAL FUEL ******************** 

130 ! " INIT FUEL: GG " , 

140 !CHR$(29), 

150 FOR R=1 TO 2\A=CALL (10608,8) \NEXT R 
160 INPUT 1 " " , E$ 

170 ! CHR$ (2 9), 

180 IF E$= "M" THEN CHAIN "MENU" 

190 IF E$<> " E" THEN 210 
200 !\!CHR$ (31 ) ,\GOTO 130 
210 G1=VAL(E$) 

220 ! " gal" ,TAB(30) , 

230 REM ************* INPUT AIRPORT OAT ******************* 

240 ! " TEMP 'C AT AIRPORT: CC" , 

250 FOR R=1 TO 2\! CHR$ (8 ) ANEXT R 
260 I N PUT 1 " " , E $ 

270 ! CHR$ (2 9) , 

280 IF E$="M" THEN CHAIN "MENU" 

290 IF E$<> "E" THEN 310 
300 !\!CHR$ (31 ) AGOTO 130 
310 H1=VAL(E$) 

320 

330 REM ************** INPUT FORCAST WINDS ALOFT ************** 

340 ("WIND: DEG KTS" , 

350 FOR R=1 TO 9\! CHR$ (8 ) ANEXT R 
360 INPUT 1 "" , E$ 

370 IF E$= "M" THEN CHAIN "MENU" 

380 IF E$ <> " E" THEN 420 

390 !\ICHR$ (31) A!CHR$ (29) A!CHR$ (31) f 

400 FOR R=1 TO 28\! CHR$ (28) ANEXT 

410 GOTO 240 

420 Dl=VAL (E$ ) -1 80 

430 IF DKO THEN D1=VAL (E$ ) +1 80 

440 

450 FOR R= (5-LEN (E$ ) ) TO 1 STEP -1 
460 J" ", 

470 NEXT R 

480 INPUT 1 ”",E$ 

490 ! CHR$ (2 9) , 

500 IF E$="M n THEN CHAIN "MENU" 

510 IF E$<> "E"THEN 540 
520 J\ ! CHR$ (31 ) , 

530 GOTO 340 
540 W1=VAL(E$) 

550 ! " kts", 

560 FOR R=1 TO 12-LEN (E $ ) \ ! " " ,\NEXT R 

570 REN ****************** INPUT CRUISE POWER SETTING ***************** 
580 ("CRUISE % BHP: PP ", 

590 ( CHR$ (8 ) , 

600 ! CHR$ (8 ) , 
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610 • CHR$ (8 ) / 

620 INPUT1 , E$ 

630 J CHR$ (2 9) , 

640 IF E$= "M" THEN CHAIN "MENU" 

650 IF E$ <> " E" THEN 710 
660 !\ ! CHR$ (31 ) , 

670 FOR R=1 TO 12\! CHR$ (2 8) ,\NEXT 
680 ! "KTS" , \ ! CHR$ (29) , 

690 FOR R=1 TO 3\l CHR$ (8 ) ,\NEXT 
700 GOTO 480 
710 T 1=VAL (E $ ) 

720 !"%" 

730 REM ************** INPUT ETD *********************** 

740 J " ETD: HH.MM", 

750 FOR R=1 TO 5\! CHR$ (8 ) ,\NEXT 
760 INPUT1 "" , E$ 

770 IF E$= "M"THEN CHAIN "MENU" 

780 IF E$<> "E" THEN 820 

790 ! \ ! CHR $ (31) ,\!CHR$ (2 9) ,\!CHR$ (31) , 

800 FOR R=1 TO 28\! CHR$ (2 8) ,\NEXT 
810 GOTO 580 
820 T2=VAL(E$) 

830 J" hrs" 

840 ! 

850 A9=0 

860 Bl=10\B2=20\B3=30 

870 REM ************* INPUT INITIAL MAP # ******************** 

880 !" INITIAL MAP #: NNNN" ,\FOR R=1 TO 4\A=CALL (10608 , 8 ) \NEXT R 
890 INPUT" ",P$ 

900 A=CALL (10608, 11) 

910 IF P$= "M" THEN CHAIN "MENU" 

920 IF P$=0$ THEN 1010 
930 IF P$<> "E" THEN 960 

94 0 A=CALL (10608 , 31 )\A=CALL (10608 , 29) \A=CALL (10608 , 31 )\A=CALL (10608,31) 

950 A=CALL (10608, 29)\GOTO 740 
960 IF P$>"3500 "THEN 2820 
970 IF P$<"0099 "THEN 2820 

980 IF P$ <> "04 22 "THEN 2820 \REM REMOVE WHEN MORE MAPS ARE ON FILE 
990 GOTO 1440 \REM ****** LOAD MAP DATA BASE 

1000 REM *************** INPUT WAYPT, ALT ***************** 

1010 ! "MAP# " , TAB (B1 )," WAYPT# ", TAB ( B2 ), "WAYPT " , TAB ( B3 ) , n ALT . X 1000 ft" 

1020 ! P $ , TAB ( B1 ) , A9 , TAB ( B2 ) ,\A=CALL (10608,29) \INPUT1 E$ 

1030 IF E$="M" THEN CHAIN "MENU" 

1040 IF E$<> " E" THEN 1070 

1050 !\FOR R=1 TO 3\A=CALL (10608 , 31 ) \A=CALL (10608 , 29) \NEXT R 
1060 GOTO 880 
1070 D (0 ) =VAL (E$ ) 

1080 FOR R=0 TO LEN (E$)\A=CALL (10608 , 8 )\NEXT R\A=CALL (10608 , 11 ) 

1090 GOSUB 1940 

1100 IF AO 9 99 THEN 1130 

1110 A=0 

1120 GOTO 1020 

1130 !G $ ,\FOR R=1 TO 10-LEN (G $ ) \ ! " " ,\NEXT R 

1140 REM ************* INPUT ALTITUDE IN 1000 ' ******************* 

1150 INPUT 1 E$ 

1160 IF E$= "M" THEN CHAIN "MENU" 

1170 IF E$<> " E" THEN 1190 
1180 !\A=CALL (10608, 31 )\GOTO 1020 
1190 C (A9)=VAL (E$) *1000 
1200 GOSUB 2430 
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1210 A9=A9+1 

1220 !P$, TAB (B1 ) , A9, TAB ( B2 ) ,\A=CALL (10608,29) \INPUT1 E$ 

1230 IF E$= "M" THEN CHAIN "MENU" 

1240 IF E$<> "E" THEN 1290 

1250 I\A=CALL (10608 , 31 )\A=CALL (10608 , 29) \A=CALL (10608 , 31 ) 

1260 FOR R=1 TO B3\A=CALL (10608 , 28)\NEXT R\A=CALL (10608 , 29) 

1270 A9=A9-1 

1280 IF A9=0 THEN 1150 ELSE 1350 
1290 D (A9)=VAL (E$) 

1300 GOSUB 1940 

1310 IF A<>999 THEN 1330 

1320 GOTO 1220 

1330 FOR R=0 TO LEN (E$)\A=CALL (10608 , 8 )\NEXT R\A=CALL (10608 , 11 ) 
1340 »G$,\FOR R=1 TO 10-LEN (G $) \ ! " ",\NEXT R 
1350 INPUT 1 E$ 

1360 IF E$= "M” THEN CHAIN "MENU" 

1370 IF E$<> ”E" THEN 1400 

1380 !\A=CALL (10608 , 31 )\A=CALL (10608 , 29) 

1390 GOTO 1220 
1400 C (A9 )=VAL (E$ ) *1000 
1410 IF C ( A9 ) <C2 THEN E=1 
1420 GOTO 1200 

1430 REM *************** LOAD MAP DATA BASE ********************** 
1440 OPEN #0,P$ 

1450 WRITE #2,G1,H1,D1,W1,T1,T2,P$ 

1460 0$=P$ 

1470 READ #0 ,M(A9) ,P1,F1 \ REM LOAD VOR DATA , MAG VAR 

1480 DIM V(P1-1,F1) f V$ (3) ,Z$(F1*3) 

1490 FOR W=1 TO FI 
1500 READ #0,V$ 

1510 Z$=V$+Z$ 

1520 FOR X=1 TO Pl-1 
1530 READ #0,V(X,W) 

1540 NEXT X 

1550 NEXT W 

1560 READ #0,P2,F2 \ REM LOAD INTERSECTION DATA 

1570 DIM N (P 2-1 , F2) ,N$ (5) , R$ (F2*5) 

1580 FOR W=1 TO F2 
1590 READ #0 , N$ 

1600 R$=N$+R$ 

1610 FOR X=1 TO P2-1 
1620 READ f0,N(X,W) 

1630 NEXT X 
1640 NEXT W 

1650 READ #0,P3,F3 \ REM LOAD AIRPORT DATA 

1660 DIM A(P3-1,F3) , A$ (6) , S$ (F3*6) 

1670 FOR W=1 TO F3 
1680 READ #0 , A$ 

1690 S$=A$+S$ 

1700 FOR X=1 TO P3-1 
1710 READ #0,A{X,W) 

1720 NEXT X 
1730 NEXT W 

1740 READ #0 , P4 , F4 \ REM LOAD ILS DATA 

1750 DIM I(P4,F4) ,I$(4),T$(F4*4) 

1760 FOR W=1 TO F4 
1770 READ #0,1$ 

1780 T$=I$+T$ 

1790 FOR X=1 TO P4-1 
1800 READ #0,1 (X,W) 



1810 NEXT X 
1820 NEXT W 

1830 READ #0,P5,F5 \ REM LOAD NDB DATA 

1840 DIM B(P5-1,F5) ,B$ (4) , U$ (F5*4) 

1850 FOR W=1 TO F5 
1860 READ #0 , B$ 

1870 U$=B$+U $ 

1880 FOR X=1 TO P5-1 
1890 READ #0,B(X,W) 

1900 NEXT X 
1910 NEXT W 

1920 CLOSE #0 \GOTO 1010 

1930 REM ************** GET WAYPT MNEMONIC, LAT/LNG , MEA ************* 

1940 IF D (A9 ) <1 000 THEN 2340 \REM WAYPT IS A VOR 

1950 IF D (A9 ) <1 0000 THEN 2050 \REM WAYPT IS NDB OR ILS 

1960 IF D (A9) <100000 THEN 2250 \REM WAYPT IS AN INTRSECTION 

1970 FOR W=0 TO F3-1 \REM WAYPT IS AN AIRPORT 

1980 IF A ( 1 , W+l ) =D ( A9 ) THEN 2010 

1990 NEXT W 

2000 GOTO 2750 

2010 G$=S$ (6 * ( F3-W) - 5 , 6* ( F3-W) ) 

2020 K (A9 )=A ( 3 , W+l ) \REM ASSIGN LAT 

2030 L ( A9 ) =A ( 4 , W+l ) \REM ASSIGN LONG 

2040 RETURN 

2050 IF D (A9 ) <5000 THEN 2140 

2060 FOR W=0 TO F5-1 \ REM WYPT IS NDB 

2070 IF B ( 1 , W+l ) =D ( A9 ) THEN 2100 
2080 NEXT W 
2090 GOTO 2750 

2100 G $=U $ (4 * ( F5-W) -3 , 4* ( F5-W) ) 

2110 K (A9)=B(3,W+1) \REM ASSIGN LAT 

2120 L (A9 )=B (4 ,W+1 ) \REM ASSIGN LONG 

2130 RETURN 

2140 IF D (A9 ) >4000 THEN 2170 
2150 REM B IS A NDB 
2160 GOTO 2060 

2170 FOR W=0 TO F4-1 \REM WAYPT IS AN ILS 

2180 IF I (1 ,W+1 )=D (A9) THEN 2210 
2190 NEXT W 
2200 GOTO 2750 

2210 G $=T$ (4*(F4-W)-3,4*(F4-W) ) 

2220 K (A9)=I (3 ,W+1 ) \REM ASSIGN LAT 

2230 L (A9 )=I (4 , W+l ) \REM ASSIGN LONG 

2240 RETURN 

2250 FOR W=0 TO F2-1 \REM WAUPT IS AN INTERSECTION 

2260 IF N (1 ,W+1 )=D (A9) THEN 2290 
2270 NEXT W 
2280 GOTO 2750 

2290 G$=R$ (5* ( F2-W) -4 , 5* ( F2-W) ) 

2300 L (A9)=N (4 ,W+1 ) \REM ASSIGN LNG 

2310 K (A9)=N (3 ,W+1 ) \REM ASSIGN LAT 

2320 C 2=N (2 ,W+1 ) *100 
2330 RETURN 

2340 FOR W=0 TO Fl-1 \ REM WYPT IS VOR 

2350 IF V (1 , W+l ) =D (A9 ) THEN 2380 
2360 NEXT W 
2370 GOTO 2750 

2380 G$=Z$ (3*(Fl-W)-2, 3*{F1-W) ) 

2390 K (A9)=V (3 , W+l ) \REM ASSIGN LAT 

2400 L (A9)=V(4,W+1) \REM ASSIGN LONG 
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2410 RETURN 

2420 REM *********** A lt MNEMONICS, ERROR MSGS **************** 

2430 IF E=1 THEN 2590 

2440 ! \REM AND ALT 

2450 A=CALL (10608, 29) 

2460 A=CALL (10608, 31 ) 

2470 IF C(A9)=252000 THEN C$="CLB " ELSE 2490 
2480 GOTO 2550 

2490 IF C(A9)=337000 THEN C$="DES " ELSE 2510 
2500 GOTO 2550 

2510 IF C (A9)=563000 THEN C$="LND " ELSE 2530 
2520 GOTO 2850 

2530 !P $ , TAB ( B1 ) ,A9,TAB(B2) ,G$,TAB(B3) ,C(A9) , 

2540 GOTO 2560 

2550 !P$, TAB ( Bl) ,A9,TAB(B2) ,G$ , TAB ( B3+1 ) ,C$, 

2560 A=CALL (10608, 29) 

2570 ! 

2580 RETURN 

2590 REM THIS CAUSES FLASHING OF THE CORRECT 

2600 REM MINIMUM ENROUTE ALTITUDE FOR 10 SECONDS 

2610 C ( A9 ) =C 2 

2620 FOR R=0 TO LEN (E$) \A=CALL (10608 , 8 ) \NEXT R 
2630 A=CALL (10608, 29) 

2640 C$=STR$(C2) 

2650 FOR R6=l TO 5 

2660 FOR R=1 TO 500\NEXT R 

2670 A=CALL (10608,11) 

2680 FOR R=1 TO 50\NEXT R 
2690 !C$ , 

2700 FOR R=1 TO LEN (C$ ) \A=CALL (1 0608 , 8 ) \NEXT R 
2710 NEXT R6 
2720 E=0 
2730 ! 

2740 RETURN 
2750 ! 

2760 j "*******ERROR WAYPT NOT ON FILE*******" 

2 770 A=CALL (10608 , 31 )\A=CALL (10608 , 31 ) 

2780 A=CALL (10608 , 29) 

2790 A =999 
2800 RETURN 
2810 GOTO 1090 

2820 i ******** ERROR ILLEGAL MAP# *****" 

2 83 0 A=CALL (106 08 , 31 )\A=CALL (10608 , 31 )\A=CALL (10608,2) 

2840 GOTO 880 

2 850 ! P $ , TAB ( Bl ) ,A9,TAB(B2) ,G$ , TAB ( B3+1 ) ,C$, 

2860 OUT 2,29 
2870 I 

2880 ! "DESTINATION ", 

2890 OUT 2,31 
2900 ! "99 " 

2910 A8=A9 

2920 FOR R=1 TO 1200 
2930 NEXT 

2940 A=CALL (10608, 25) 

2950 A=CALL (10608,11) 

2960 REM ************** BEGINNING OF CALCULATION *********************** 
2970 ("DEPART FROM ETD INITIAL FUEL/GAL" 

2 98 0 A9=0 
2990 GOSUB 1940 

3000 !G $ , TAB (2 8) , %#5F2, T2, TAB (47 ) ,%#4F1,G1 
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3010 

3020 

! "FROM 

TO COURSE 

DIST 

HDG 

ETER EGS 

ALT 

RESERVES" 

3030 

i " 

DDD 

NN.N 

DDD 

H.MM KTS 

FT. 

GAL HRS" 

3040 

3050 

P=3. 14159265 
DIM K2 (19) , L2 (19) 



\REM P= 

PI 



3060 REM **************** CHANGE LAT & LNG TO RADIANS & DECIMAL ********** 

3070 FOR A9=0 TO A8 

3080 IF K (A9)=0 THEN 4130 

3090 K 2 (A9 ) = INT (K (A9 ) ) + (K (A9 ) -INT (K ( A9 ) ) ) / .6 \REM RADIAN LAT 

3100 K2 (A9)=K2 (A9)*P/180 

3110 L2 (A9)=INT (L (A9) ) + (L (A9) -INT (L (A9 ) ) ) / . 6 \REM DECIMAL LNG 

3120 NEXT A9 

3130 A9=-l 

3140 A9=A9+1 

3150 IF A9=A8 THEN 4130 

3160 REM ************ FIND COURSE FROM WAYPOINT A9 TO A9+1 ************ 
3170 J 2=L2 (A9)-L2 (A9+1 ) 

3180 J3=P/4+K2 (A9+l)/2 
3190 J4=P/4+K2(A9)/2 

3200 J5=LOG (SIN (J3)/COS (J3) )-LOG (SIN (J4)/COS (J4) ) 

3210 J 6=ABS ( (P*J2 ) / (I 80 *J 5) ) 

3220 J 8=ATN (J 6 ) 

3230 J 7=1 80 *J 8/P \REM GIVES TRUE HDG IN DEG 

3240 J 9=J7 \REM J9=TRUE COURSE 

3250 J 7 = J 7 +M ( 0 ) \REM J7=MAG HDG 

3260 REM ************ CORRECT COURSE ANGLE FOR EACH QUADRANT *********** 

3270 IF K(A9)<K (A9+1) AND L (A9 ) >L (A9+1 ) THEN 3370 

3280 IF K(A9)>K (A9+1) AND L (A9 ) <L (A9+1 ) THEN 3330 

3290 IF K ( A9 ) >K ( A9+1 ) AND L (A9 ) >L (A9+1 ) THEN 3420 

3300 REM ***** HDG NE 

3310 IF J7<0 THEN J7=360+J7 

3320 GOTO 3450 

3330 REM ***** HDG SE 

3340 J 7=1 80 -J 7+2 *M (0 ) 

3350 J 9=1 80 -J 9 
3360 GOTO 3450 
3370 REM ***** HDG NW 
3380 J7=360-J7+2*M(0 ) 

3390 IF J7>360 THEN J7=J7-360 

3400 J 9=3 6 0 -J 9 

3410 GOTO 3450 

3420 REM ***** HDG SW 

3430 J 7=J 7+1 80 

3440 J 9=J9+1 80 

3450 J7=INT (J7+. 5) 

3460 REM *********** PRINT FROM & TO WAYPTS, MAG COURSE ************ 

3470 !G$,TAB(8 ), \REM OUTPUT "FROM" WAYPT 

3480 A9=A9+1 
3490 D=D(A9) 

3500 GOSUB 1940 \REM OUTPUT "TO" WAYPT AND 

3510 A9=A9-1 

3520 !G $, TAB (17) , %# 31 , J7 , TAB (20 ) , 

3530 REM *********** FIND DIST FROM WAYPT A9 TO A9+1 *************** 

3540 IF J9=270 OR J9=90 THEN 3410 \REM IS TRUE COURSE E OR W? 

3550 Y=K 2 (A9 ) *1 80/P \REM Y=DECIMAL LAT 

3560 Y 1=K 2 (A9+1 ) *1 80/P 

3570 H3=6 0* ( Y 1-Y ) /COS (FNR (J8 ) ) \REM DIST = H3 IF COS(J8)<>0 
3580 GOTO 3600 

3590 H3=60* (L2 (A9+1 ) -L 2 (A9) ) *COS (K2(A9)) \REM DIST=H3 IF COS(J8)=0 
3600 H3=ABS(H3) 
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3610 H3=INT (10*H3)/10 \REM ROUND DIST TO 1/10 

3620 H9=H 9+H3 \REM SUM DIST 

3630 IF H9>1000 THEN 4340 
3640 !%#6F1,H3, TAB (2 9)/ 

3650 REM ********** SELECT CLB , CRUISE OR DESCEND ROUTINES ********* 

3660 IF C(A9)<>252000 THEN 3770 

3670 REM ********* INSERT CLIMB PERFORMANCE ALGORITHMS HERE ******** 

3680 C$= "CLB" 

3690 T4=8 0 
3700 GOSUB 3930 
3710 G 2=22 
3720 GOSUB 4050 

3730 !%#3I,J8,TAB(36) , %#4F2, E2, TAB (42 ) ,%#3I , T3 , TAB (48 ) , C$ , TAB ( 54 ) ,%#4F1,R1, 
3740 ! TAB (60) ,%#5F2,R2 

3750 WRITE #2 , D (A9 ) , D (A9+1 ) , J7 , H3, J8 , E2, T3 , C ( A9 ) , R1 , R2, T4 
3760 GOTO 3140 

3770 IF C ( A9) 0337000 AND C (A9+1 ) 0563000 THEN 3840 

3780 REM ********* INSERT DESCENT PERFORMANCE ALGRITHMS HERE ********** 

3790 C $= "DES " 

3800 IF C ( A9+1 >=563000 THEN T4=100 ELSE T4=120 
3810 GOSUB 3930 
3820 GOSUB 4020 
3830 GOTO 3730 

3840 REM ****************** LEVEL FLIGHT *************************** 

3850 GOSUB 3900 
3860 GOSUB 4010 

3870 ]%#3I,J8, TAB (36 ) , %#4F2, E2, TAB (42 ) ,%#3I ,T3,TAB(47) ,%#5I,C(A9) , TAB (54) , 
3880 !%#4F1, R1,TAB(60) ,%#5F2,R2 

3890 WRITE #2 , D (A9 ) , D (A9+1 ) , J7 , H3, J8 , E2, T3 , C ( A9 ) , R1 , R2, T4 

3900 REM ********* CRUISE PERFORMANCE ROUTINE ********************** 

3910 T4=128+.00111*C(A9)+ (Tl-64.4)*1. 1 \REM T3=TAS AT 24 OORPM , 30 "MAP 
3920 REM ********** CORRECT HDG & GS FOR WIND *********************** 

3930 J 8=J 7+FNS (W1/T4) *1 80/P*SIN (FNR (D1-J7) ) 

3940 T3=T4*COS (FNR (J8-J7) ) -Wl*COS (FNR (D1-J7) ) 

3950 J 8=INT (J 8+ . 5) 

3 960 E 2=H 3/T3 \REM E2 = ETER 

3970 E 3=E 3+E 2 \REM E3=ETT FOR TRIP 

3980 E 2=INT (E2)+(E2-INT(E2))*.6 \REM E2=HRS.MIN 
3990 E2=INT (E2*100+.5)/100 
4000 RETURN 

4010 REM ************** FIND GPH , RESERVES ***************************** 
4020 IF T1 <68 THEN K=.1545 \REM T1=CRUISE %BHP 

4030 IF Tl>=68 THEN K=. 154 5+ ( . 004 5*(Tl-68 ) ) 

4040 G 2=K *T 1 \REM G2=GPH 

4050 R1=G 1- (G 2*E 3) \REM R1=GAL REMAINING 

4060 IF R1<=0 THEN 4260 \REM CHECK FOR NO FUEL 

4 070 R 2=R 1/G 2 

4080 R2=INT (R2)+ (R2-INT (R2) ) *0 . 6 \REM HRS, MIN RESERVE 
4090 R 2=1 NT (100*R2) /100 
4100 R1=INT(R1*10)/10 
4110 T3=INT(T3) 

4120 RETURN 
4130 ! 

4140 CLOSE #2 

4150 ! "DESTINATION TDIST ETA FINAL RES/GAL RES/HRS" 

4160 T2=INT (T2)+ (T2-INT (T2) ) /.6 

4170 H9=INT(10*H9)/10 \REM H9=TOTAL DIST IN MM.m 

4180 E3=E3+T2 \REM E3=ETA, OR ETT+ETD 

4190 E3=INT(E3) + (E3-INT (E3) ) * . 6 \REM E3=HRS.MIN 

4200 E3=INT(E3*100)/100 \REM CORRECTION FOR E3 IN MIN ONLY 
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4210 !G$, TAB (21 ) , %#5F1, H9, TAB (2 8) , %#5F2, E3, TAB (48 ) ,%#4F1,R1, 
4220 ! TAB (56) , %#5F2,R2 

4230 !\ !\ ! "DO YOU WISH TO TRY ANOTHER ROUTE? ( 1 =YES , 0=NO ) : ", 
4240 INPUT " " ,Z 9\IF Z9=0 THEN CHAIN "MENU" 

4250 CHAIN " FLTPLNUP " 

4260 ! 

4270 ! 

4280 i n ********* ERROR INSUFFICIENT FUEL*********** ” 

4290 ! "RE-INPUT INIT.FUEL: ", 

4300 INPUT " " ,G9 

4310 IF G9>G 1 THEN 2940 

4320 ! "ILLEGAL ENTRY" 

4330 GOTO 4290 
4340 ! 

4350 ! 

4360 j "********* ERROR DIST EXCEEDS MAX RANGE **********" 
4370 J "TRY AGAIN! ! " 

4380 CHAIN " FLTPLN" 
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5.5 FLIGHT PLAN UPDATE PROGRAM 

FIGURE 5.5-1 FLT PLN UP . . . FLIGHT PLAN UPDATE FLOW CHART 





WBS# 3053.2 


10 REM FLTPLNUP PROGRAM 
20 REM PROGRAM FOR UPDATING FLIGHTPLAN 
30 A=CALL (10608 , 25 ) \A=CALL (106 08,11) 

40 A9=0 

50 Bl=l 5\B2=33\B3=50 
60 OPEN #2 , " FPDATA" 

70 DIM D( 20), C( 20), K( 20), L( 20 ) , Y (1 9) , Y1 (1 9 ) , H3 (20 ) 

80 DIM F ( 20 , 11 ) 

90 READ #2,G1,H1,D1,W1,T1,T2,P$ 

100 FOR R=0 TO 20 \REM LOAD ORIGINAL FLIGHT PLAN 

110 FOR R 1 =1 TO 11 
120 READ #2 , F (R , R1 ) 

130 NEXT R1 

140 IF TYP (2 ) = 0 THEN 160 
150 NEXT R 

160 GOTO 2070 \REM *** GO LOAD MAP DATA BASE *** 

170 REM************* THIS SECTION MAY NOT BE USED **************** 
180 I " IN IT FUEL: GG " , 

190 A=CALL (10608 , 29) 

200 FOR R=1 TO 2\A=CALL (10608 , 8 )\NEXT R 
210 INPUT 1 "" ,E$ 

220 IF E$= "M" THEN CHAIN "MENU" 

230 IF E$ <> " E" THEN 250 

240 !\A=CALL (10608, 31) \GOTO 180 

250 G1=VAL(E$) 

260 ! " gal" ,TAB(30) , 

270 ! " TEMP 'C AT AIRPORT: CC" , 

280 FOR R=1 TO 2\A=CALL (10608 , 8 ) \NEXT R 
290 INPUT1 "" , E$ 

300 A=CALL (10608,29) 

310 IF E$= "M" THEN CHAIN "MENU" 

320 IF E$ <> " E" THEN 340 

330 !\A=CALL (10608, 31 )\GOTO 180 

340 H 1=VAL (E $ ) 

350 !"'" 

360 ! "WIND: DEG KTS" , 

370 FOR R=1 TO 9\A=CALL (10608 , 8 )\NEXT R 
380 INPUT 1 "" , E$ 

390 IF E$= "M" THEN CHAIN "MENU" 

400 IF E$ <> " E" THEN 440 

410 ]\A=CALL (106 08, 31) \A=CALL (10 608 , 29 ) \A=CALL (10608,31 ) 

420 FOR R=1 TO 28\A=CALL (10508 , 28 ) \NEXT R 

430 GOTO 270 

440 D 1=VA L(E$)-180 

450 IF D1<0 THEN D 1=VAL (E $ ) +1 80 

460 I"'", 

470 FOR R= (5-LEN (E $ ) ) TO 1 STEP -1 
480 ]" ", 

490 NEXT R 

500 INPUT 1 " " , E$ 

510 A=CALL (10608, 29) 

520 IF E$= "M" THEN CHAIN "MENU" 

530 IF E$<> "E"THEN 560 
540 I\A=CALL (10608, 31) 

550 GOTO 360 
560 W1=VAL (E $ ) 

570 ! " kts" , 

580 FOR R=1 TO 12-LEN (E$)\! " " ,\NEXT R 
590 ! "CRUISE % BHP: PP ", 

600 A=CALL (10608 , 8) 
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610 A=CALL (10608,8) 

620 A=CALL (10608 , 8) 

630 INPUTl "" , E$ 

640 A=CALL (10608 , 29) 

650 IF E$="M" THEN CHAIN "MENU" 

660 IF E$ <> " E" THEN 720 
670 ! \ A=CALL (10608 , 31 ) 

680 FOR R=1 TO 12\A=CALL (10608 , 28 ) \NEXT R 
690 ! "KTS" ,\A=CALL (10608 , 29) 

700 FOR R = 1 TO 3\ A=CALL (1 06 08 , 8 ) \NE XT R 
710 GOTO 500 
720 T1=VAL (E $ ) 

730 I"%" 

740 ! " ETD: HH.MM", 

750 FOR R=1 TO 5\A=CALL (1 06 08 , 8 ) \NE XT R 
760 INPUTl"", E$ 

770 IF E$= "M" THEN CHAIN "MENU" 

7 80 IF E$ <> " E" THEN 82 0 

7 90 !\A=CALL (106 08 , 31 )\A=CALL (10 6 08 , 29)\A=CALL (106 08,31 ) 

800 FOR R=1 TO 28\A=CALL (10608 , 28 ) \NEXT R 
810 GOTO 590 
820 T 2=VAL (E $ ) 

830 J" hr s" 

840 ! 

850 A 9=0 

860 B 1 =1 0\B2=20\B3=30 

870 ! " IN ITIA L MAP #: NNNN" ,\FOR R=1 TO 4\A=CALL (10608 , 8 ) \NEXT R 
880 INPUT" ",P$ 

890 A=CALL (10608, 11) 

900 IF P$= "M" THEN CHAIN "MENU" 

910 IF P$=0$ THEN 1000 
920 IF P$ <> " E" THEN 950 

93 0 A=CALL (106 08, 31) \A=CALL (106 08 , 29) \A=CALL (10 608 , 31 ) \A=CALL (106 08,31) 
940 A=CALL (10608, 29)\GOTO 740 
950 IF P$>"3500" THEN 3430 
960 IF P$<"0099 "THEN 3430 

970 IF P$ <> "04 22 " THEN 3430 \REM REMOVE WHEN MORE MAPS ARE ON FILE 
980 GOTO 2070 

990 REM ****************** END OF MAY NOT BE USED SECTION *********** 
1000 PRINT "EXISTING FLIGHT PLAN UPDATED FLIGHT PLAN" 

1010 PRINT "WAYPOINT ALT. WAYPOINT ALT." 

1020 PRINT 

1030 REM ****************** PRINT OUT OLD WAYPOINTS ****************** 
1040 FOR R1=0 TO R 

1050 D (A9)=F (Rl, 1) \REM GET MNEMONIC 

1060 GOSUB 2560 

1070 IF R 1=0 THEN G1$=G$ \REM SAVE WAYPOINT 0 MNEMONIC 
1080 IG $ , TAB ( B1 ) , 

1090 IF F(R1, 8)0252000 THEN 1120 
1100 !" CLB " 

1110 GOTO 1190 

1120 IF F(R1, 8)0337000 THEN 1150 
1130 !" DES" 

1140 GOTO 1190 

1150 IF F(R1, 8)0563000 THEN 1180 
1160 ! " LND" 

1170 GOTO 1190 
1180 ! F (R 1 , 8 ) 

1190 NEXT Rl 
1200 FOR R1=0 TO R 
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1210 A=CALL (10608 , 31 ) \REM REPOSITION CURSOR UP 

1220 NEXT R 1 

1230 FOR R1 =1 TO B2 

1240 A=CALL (10608, 28) \REM MOVE CURSOR OUT 
1250 NEXT R 1 

1260 REM****************** INPUT NEW WAYPOINTS ********************** 
1270 !G 1$ , \REM PRINT AIRPORT NAME, WILL NOT CHANGE 

1280 FOR R1=LEN (G 1$ ) TO 17 

1290 A=CALL (10608 , 28) \REM MOVE CURSOR OUT 
1300 NEXT R 1 

1310 I" CLB" \REM WILL ALWAYS CLB OUT FROM AIRPORT! 

1320 FOR Rl=l TO B2 

1330 A=CALL (10608, 28) \REM MOVE CURSOR OUT 
1340 NEXT R 1 
1350 R=1 
1 360 A9=l 

1370 A=CALL (10608 , 8) \REM BS 

1380 REM ***** INPUT WAYPOINT ****** 

1390 INPUT 1 E $ 

1400 IF E$= "M" THEN CHAIN "MENU" 

1410 IF E$ <> " E" THEN 1590 

1420 IF A9<>0 THEN 1480 

1430 A=CALL (10608 , 7) \REM BUZZ 

1440 A=CALL (10608 , 8) \REM BS 

1450 A=CALL (10608, 8) \REM BS 

1460 A=CALL (10608,29) \REM ERASE 

1470 GOTO 1380 

1480 REM ***** RE-POSITION CURSOR TO RE-INPUT LAST ALT ***** 

1490 A=CALL (10608 , 8) \REM BS 

1500 A=CALL (10608,8) \REM BS 

1510 A=CALL (10608, 29) \REM ERASE 

1520 FOR Rl=l TO 17 

1530 A=CALL (10608, 28) \REM SPACE OUT 

1540 NEXT R1 

1550 A=CALL (10608, 31) \REM UPSPACE 

1560 A=CALL (10608, 29) \REM ERASE OLD ALT 

1570 A9=A9-1 

1580 GOTO 1850 \REM RE-INPUT OLD ALT 

1590 IF E$ <> " " THEN 1700 

1600 D(A9) = F(R,1) \REM NO WAYPOINT CHANGE 

1610 A=CALL (10608 , 8) 

1620 GOSUB 2560 \REM GET WAYPOINT MNEMONIC 

1630 !" " , G $ , 

1640 FOR R1=LEN (G $ ) TO 17 

1650 A=CALL (10608, 28) \REM SPACE OUT 

166 0 NEXT R*1 
1670 ! F (R , 8 ) 

1680 R=R+1 

1690 GOTO 2010 \REM REPOSITION CURSOR 

1700 IF E$ (1 , 1 ) = "/" THEN 1730 

1710 R=R+1 

1720 GOTO 1750 

1730 E$=E$ (2, LEN (E$) ) 

1740 A=CALL (10608,8) 

1750 D (A9)=VAL(E$) 

1760 GOSUB 2560 \REM GET WAYPOINT MNEMONIC 

1770 FOR R 1=LEN (E $ ) TO 0 STEP -1 
1780 A=CALL (10608 , 8) 

1790 NEXT R1 

1800 A=CALL (10608, 29) 
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1810 !" " ,G$, 

1820 FOR Rl =LEN (G $ ) TO 17 
1830 A=CALL (10608, 28) 

1840 NEXT Rl 

1850 REM ***** INPUT ALTITUDE ***** 

1860 INPUT 1 E $ 

1870 IF E$="M" THEN CHAIN "MENU" 

188 0 IF E$ <> " E" THEN 194 0 
1890 FOR R 1=1 7 TO 1 STEP -1 
1900 A=CALL (10608 , 8) 

1910 NEXT Rl 

1920 A=CALL (10608 , 29) 

1930 GOTO 1380 \REM CHANGE LAST WAYPOINT 

1940 C (A9)=VAL (E$) *1000 

1950 IF C ( A9 ) <C 2 THEN ERROR \REM CHECK FOR ALT<MEA 

1960 IF C(A9)=563000 THEN COMPUTE FLIGHTPLAN 

1970 FOR Rl=LEN (E $ ) TO 0 STEP -1 

1980 A=CALL (10608 , 8) \REM BS 

1990 NEXT Rl 

2000 !C(A9) 

2010 REM ***** REPOSITION CURSOR, GET READY FOR NEXT WP ************* 

2020 A9=A9+1 

2030 FOR Rl=l TO B2 

2040 A=CALL (10608 , 28) 

2050 NEXT Rl 

2060 GOTO 1370 \REM GO GET NEXT WAYPOINT 

2070 REM ******************** LOAD MAP DATA BASE ******************* 
2080 OPEN #0,P$ 

2090 0$=P$ 

2100 READ #0 ,M (A9) , PI, FI \ REM LOAD VOR DATA , MAG VAR 

2110 DIM V(P1-1,F1) ,V$ (3) ,Z$ (Fl*3) 

2120 FOR W=1 TO FI 
2130 READ #0,V$ 

2140 Z$=V$+Z$ 

2150 FOR X=1 TO Pl-1 
2160 READ #0,V(X,W) 

2170 NEXT X 

2180 NEXT W 

2190 READ #0 , P2 , F2 \ REM LOAD INTERSECTION DATA 

2200 DIM N (P2-1 ,F2) ,N$ (5) , R$ (F2*5) 

2210 FOR W=1 TO F2 
2220 READ #0 , N$ 

2230 R$=N$+R$ 

2240 FOR X=1 TO P2-1 
2250 READ #0,N(X,W) 

2260 NEXT X 
2270 NEXT W 

2280 READ #0,P3,F3 \ REM LOAD AIRPORT DATA 

2290 DIM A(P3-1,F3) ,A$ (6) ,S$ (F3*6) 

2300 FOR W=1 TO F3 
2310 READ #0 , A$ 

2320 S$=A$+S$ 

2330 FOR X=1 TO P3-1 
2340 READ #0,A(X,W) 

2350 NEXT X 
2360 NEXT W 

2 370 READ #0,P4,F4 \ REM LOAD I LS DATA 

2380 DIM I(P4,F4),I$(4), T$ ( F4 *4 ) 

2390 FOR W=1 TO F4 
2400 READ #0,1$ 
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2410 T$=I$+T$ 

2420 FOR X=1 TO P4-1 
2430 READ #0,1 (X,W) 

2440 NEXT X 
2450 NEXT W 

2460 READ #0 , P5,F5 \ REM LOAD NDB DATA 

2470 DIM B(P5-1,F5) ,B$ (4) ,U$ (F5*4) 

2480 FOR W=1 TO F5 
2490 READ #0,B$ 

2500 U $=B $+U $ 

2510 FOR X=1 TO P5-1 
2520 READ #0,B(X,W) 

2530 NEXT X 
2540 NEXT W 

2550 CLOSE #0\GOTO 1000 

2560 IF D (A9) <1000 THEN 2960 \REM WAYPT IS A VOR 

2570 IF D(A9) <10000 THEN 2670 \REM WAYPT IS NDB OR ILS 

2580 IF D (A9) <100000 THEN 2870 \REM WAYPT IS AN INTRSECTION 

2590 FOR W=0 TO F3-1 \REM WAYPT IS AN AIRPORT 

2600 IF A (1 ,W+1 )=D (A9) THEN 2630 

2610 NEXT W 

2620 GOTO 3360 

2630 G $=S $ (6 * ( F3-W) -5 , 6* ( F3-W) ) 

2640 K (A9)=A(3,W+1) \REM ASSIGN LAT 

2650 L (A9 ) =A (4 , W+l ) \REM ASSIGN LONG 

2660 RETURN 

2670 IF D (A9 ) <5000 THEN 2760 

2680 FOR W=0 TO F5-1 \ REM WYPT IS NDB 

2690 IF B ( 1 , W+l ) =D ( A9 ) THEN 2720 
2700 NEXT W 

2710 GOTO 3360 

2720 G $=U $ (4 * ( F5-W) -3 , 4 * ( F5-W) ) 

2730 K (A9 )=B (3 , W+l ) \REM ASSIGN LAT 

2740 L (A9 )=B (4 , W+l ) \REM ASSIGN LONG 

2750 RETURN 

2760 IF D (A9 ) >4000 THEN 2790 
2770 REM B IS A NDB 
2780 GOTO 2680 

2790 FOR W=0 TO F4-1 \REM WAYPT IS AN ILS 

2800 IF I (1 , W+l ) =D (A9 ) THEN 2830 
2810 NEXT W 
2820 GOTO 3360 

2830 G$=T$ (4*(F4-W)-3,4*(F4-W) ) 

2840 K (A9) = I (3, W+l) \REM ASSIGN LAT 

2850 L (A9 )=I (4 , W+l ) \REM ASSIGN LONG 

2860 RETURN 

2870 FOR W=0 TO F2-1 \REM WAUPT IS AN INTERSECTION 

2880 IF N (1 , W+l ) =D ( A9 ) THEN 2910 
2890 NEXT W 
2900 GOTO 3360 

2910 G $=R$ (5 * ( F2-W) -4 , 5* ( F2-W) ) 

2920 L (A9)=N (4 , W+l ) \REM ASSIGN LNG 

2930 K (A9)=N (3 ,W+1 ) \REM ASSIGN LAT 

2940 C 2=N (2 ,W+1 ) *100 
2950 RETURN 

2960 FOR W=0 TO Fl-1 \ REM WYPT IS VOR 

2970 IF V(1 ,W+1 )=D (A9) THEN 3000 
2 980 NEXT W 
2990 GOTO 3360 

3000 G $=Z $ (3*(Fl-W)-2, 3*(F1-W) ) 
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3010 K(A9)=V(3,W+1) \REM ASSIGN LAT 

3020 L (A9 ) =V (4 , W+l ) \REM ASSIGN LONG 

3030 RETURN 

3040 IF E=1 THEN 3200 

3050 I \REM AND ALT 

3060 A=CALL (10608, 29) 

3070 A=CALL (10608 , 31) 

3080 IF C ( A9 ) =252000 THEN C$="CLB " ELSE 3100 
3090 GOTO 3160 

3100 IF C(A9)=337000 THEN C$="DES " ELSE 3120 
3110 GOTO 3160 

3120 IF C ( A9 ) = 5 63 000 THEN C$="LND " ELSE 3140 
3130 GOTO 3460 

314 0 !P $ , TAB ( B1 ) ,A9,TAB(B2) ,G$,TAB(B3) ,C(A9) , 

3150 GOTO 3170 

3160 !P $ , TAB ( B1 ) ,A9,TAB(B2) ,G$ , TAB ( B3+1 ) ,C$, 

3170 A=CALL (10608 , 29) 

3180 ! 

3190 RETURN 

3200 REM THIS CAUSES FLASHING OF THE CORRECT 

3210 REM MINIMUM ENROUTE ALTITUDE FOR 10 SECONDS 

3220 C (A9)=C2 

3230 FOR R=0 TO LEN (E $ ) \A=CALL (10608 , 8 ) \NEXT R 
3240 A=CALL (10608, 29) 

3250 C$=STR$(C2) 

3260 FOR R6=l TO 5 

3270 FOR R=1 TO 500\NEXT R 

3280 A=CALL (10608, 11) 

32 90 FOR R=1 TO 50\NEXT R 
3300 !C$, 

3310 FOR R=1 TO LEN (C$ ) \A=C ALL (1 0608 , 8 ) \NEXT R 

3320 NEXT R6 

3330 E=0 

3340 I 

3350 RETURN 

3360 ! 

3370 i "*******ERROR WAYPT NOT ON FILE*******” 

3380 A=CALL (10608 , 31 ) \A=C ALL (10608 , 31) 

3390 A=CALL (10608, 29) 

3400 A =999 
3410 RETURN 
3420 GOTO 1150 

3430 i "****** ERROR ILLEGAL MAP# *****" 

344 0 A=CALL (10608 , 31 ) \A=C ALL (106 08 , 31 )\A=C ALL (10608,2) 

3450 GOTO 870 

346 0 !P $, TAB ( B1 ) ,A9,TAB(B2) ,G$,TAB(B3+1 ) ,C$, 

3470 OUT 2,29 
3480 I 

3490 ! "DESTINATION ", 

3500 OUT 2,31 
3510 ! "99 " 

3520 A8=A9-1 
3530 OUT 2,13 
3540 GOTO 4180 
3550 END 

3560 '"DEPART FROM ETD INITIAL FUEL/GAL" 

3570 A9=0 

3580 GOSUB 2560 

3590 !G $ , TAB (28) , %#5F2, T2, TAB (47 ) ,%#4F1,G1 
3600 ! 
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3610 I "FROM TO COURSE DIST HDG ETER EGS ALT RESERVES" 

3620 !" DDD NN.N DDD H.MM KTS FT. GAL HRS" 

363.0 P=3. 14159265 \REM P= PI 

3640 DIM K2 (19) , L2 (19) 

3650 A9=-l 

3660 FOR R=1 TO 2 

3670 A9=A9+1 

3680 IF K(A9)=0 THEN 4690 

3690 K2 (A9) = INT (K (A9) ) + (K (A9)-INT (K (A9) ) ) /.6 \REM RADIAN LAT 
3700 K 2 ( A9 )=K 2 ( A9 ) *P/1 80 

3710 L2(A9) = INT(L(A9))+(L(A9)-INT(L(A9)))/.6 \REM RADIAN LNG 
3720 NEXT R 

3730 A9=A9-1 \REM THIS IS THE HP-65 RHUMBF 

3740 J 2=L 2 (A9 ) -L 2 (A9+1 ) \REM ROUTINE MODIFIED FOR RADIAN TRIG 

3750 J3=P/4+K2(A9+l)/2 

3760 J4=P/4+K2 (A9)/2 

3770 J 5=LOG (SIN (J3)/COS (J3) ) -LOG (SIN (J4)/COS ( J 4 ) ) 

3780 J 6=ABS ( (P *J2 ) / ( 1 80 *J 5 ) ) 

3790 J9 = (J 6-1 ) / ( J6+1 ) 

3800 J 8 =ATN (J 6 ) 

3810 J7=l 80 *J8/P \REM GIVES TRUE HDG IN DEG 

3820 IF K (A9)>K (A9+1) THEN 3840 

3830 IF L (A9 ) >L (A9+1 ) THEN 3870 ELSE 3900 \REM COURSE<90 
3840 IF L (A9)>L (A9+1 ) THEN 3890 

3850 J 7 =1 8 0 -J 7 \REM 180>COURSE>90 

3860 GOTO 3900 

3870 J 7 =3 6 0 -J 7 \REM 360>COURSE>270 

3880 GOTO 3900 
3890 J 7=J 7+1 80 

3 900 REM MAG COURSE=J 7+MAG VAR 

3910 J 9=J 7 \REM J9=TRUE COURSE 

3920 J 7 = J 7 +M ( 0 ) 

3930 IF H2>. 5 THEN 3960 \REM ROUND OFF MAG HDG 

3 94 0 J 7=INT (J 7 ) 

3950 GOTO 3970 
3960 J 7=1 +INT (J 7 ) 

3970 !G $ , TAB ( 8 ), \REM OUTPUT "FROM" WAYPT 

3980 A9=A9+1 
3990 D=D (A9 ) 

4000 GOSUB 2560 \REM OUTPUT "TO" WAYPT AND 

4010 !G $ , TAB (17) , «« 3 1 , J7 , TAB ( 2 0 ) , 

4020 IF J7-M (0 )=270 THEN 4070 \REM IS TRUE COURSE E OR W? 

4030 Y (A9 )=K2 (A9 ) *1 80/P \REM Y ( A9 ) =DEC IMAL LAT 

4040 Y (A9-1 ) =K 2 (A9-1 ) *1 80/P 

4050 H 3=6 0* (Y ( A9 ) -Y (A9-1 ) ) /COS (J 8 ) \REM DIST = H3 IF COS(J8)<>0 
4060 GOTO 4100 

4070 Y 1 (A9 ) =L 2 ( A9 ) *1 80/P \REM Y1 (A9 )=DECIMAL LNG 

4080 Y1 (A9-1)=L2(A9-1)*180/P 

4090 H3=6 0*(Yl (A9)-Y1 (A 9-1 ) ) *COS (K2(A9)) \REM DIST=H3 IF COS(J8) = 0 
4100 H 3 (A9-1 ) =H 3 
4110 H 3=ABS (H 3 ) 

4120 H3=INT (10*H3)/10 \REM ROUND DIST TO 1/10 

4130 H 9=H 9+H 3 \REM SUM DIST 

4140 IF H9>1000 THEN 4960 
4150 ! %#6F1 , H3 , TAB (29), 

4160 GOTO 4230 

4170 ! " ARRRGH ! I QUIT!!!" 

4180 FOR R=1 TO 900 
4190 NEXT R 
4200 OUT 2,25 
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4210 OUT 2,11 
4220 GOTO 3560 
4230 A9=A9-1 

4240 IF C(A9)=252000 THEN C$="CLB " ELSE 4310 
4250 T3=l 00 
4260 GOSUB 4460 

4270 !%#3I,J7, TAB (36 ) , %#4F2, E2, TAB (42 ) , %#3I ,T3,TAB(48) ,C$,TAB(54) ,%#4F1,R1, 
4280 ! TAB (60) ,%#5F2,R2 

4290 WRITE #2 , D (A9 ) , D (A9+1 ) ,J7,H3,J7,E2,T3,C(A9) ,R1,R2 
4300 GOTO 4680 

4310 IF C(A9)=337000 THEN C$="DES " ELSE 4370 

4320 IF C(A9+1)=563000 THEN T3=100 ELSE 4350 

4330 GOSUB 4410 

4340 GOTO 4270 

4350 GOSUB 4410 

4360 GOTO4270 

4370 IF C(A9+1)=563000 THEN T3=100 
4380 GOSUB 4400 
4390 GOTO 4640 

4400 T3=128+.00111*C(A9)+(T1-64.4)*1.1 \REM T3=TAS AT 24 OORPM , 30 "MAP 
4410 R 6=W1/T3 

44 20 R 6=1 . 5707288-. 21 21144 *R6+. 074261 *R6~2-. 01 872 93 *R 6~3 

443 0 J7=J7+ (P/2 -SORT (1-W1/T3) *R6) *SIN ( (D 1-J 9 ) /1 80 *P ) 

444 0 T3=T3*COS ( (J9-J7-M(0) ) /I 80 *P ) -Wl*COS ( (D 1-J 9 ) /1 80 *P ) 

4450 J 7=INT (J 7 ) 

4460 E 2=H 3/T3 \REM E2 = ETER 

4470 E 3=E 3+E 2 \REM E3=ETT FOR TRIP 

4480 E2=INT (E2)+ (E2-INT (E2) ) * .6 \REM E2=HRS.MIN 

4490 IF E2-INT(E2*100)/100>=.005 THEN 4520 

4500 E 2=INT (E 2*100 ) /100 

4510 GOTO 4530 

4520 E 2=1 NT (E2*100)/100 + . 01 

4530 IF Tl<68 THEN K=.1545 

4540 IF T1 >=6 8 THEN K = . 154 5+ ( . 004 5* (Tl-58 ) ) 

4 550 G 2=K *T 1 \REM G2=GPH 

4560 R1=G1- (G2*E3) \REM R1=GAL REMAINING 

4570 IF R1<=0 THEN 4840 \REM CHECK FOR NO FUEL 

4 580 R 2=R 1/G 2 

4590 R2=INT (R2)+ (R2-INT (R2) ) *0 . 6 \REM HRS, MIN RESERVE 
4600 R 2=1 NT (100*R2)/100 
4610 R1=INT (Rl*10 )/10 
4620 T3=INT(T3) 

4630 RETURN 

4640!%#3I,J7, TAB (36 ) , %#4F2, E2, TAB (4 2 ) ,%#3I ,T3,TAB(47) ,%#5I,C(A9) , TAB (54) , 
4650 !%#4F1,R1, 

4660 ! TAB (60) ,%#5F2,R2 

4670 WRITE #2 , D (A9 ) , D (A9+1 ) ,J7,H3,J7,E2,T3,C(A9) ,R1,R2 
4680 GOTO 3660 
4690 1 

4700 CLOSE #2 

4710 '"DESTINATION TDIST ETA FINAL RES/GAL RES/HRS" 

4720 T2=INT(T2)+ (T2-INT (T2) ) /. 6 

4730 H9=INT(10*H9)/10 \REM H9=TOTAL DIST IN MM.m 

4740 E 3=E 3+T2 \REM E 3 =E TA , OR ETT+ETD 

4750 E3=INT (E 3 ) + (E 3 -I NT (E 3 ) ) * . 6 \REM E3=HRS.MIN 

4760 E 3=INT (E 3*100 ) /10 0 \REM CORRECTION FOR E3 IN MIN ONLY 

4770 1G $ , TAB ( 21 ) , %# 5F 1 , H9 , TAB ( 2 8 ) , %#5F2, E3, TAB (4 8 ) ,%#4F1,R1, 

4780 ! TAB (56) ,%#5F2,R2 

4790 WRITE #2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 

4800 CLOSE #2 
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4810 / !\!\ ! "DO YOU WISH TO TRY ANOTHER ROUTE? (1 =YES , 0=NO ) : ", 

4820 INPUT " " ,Z9\IF Z9=0 THEN CHAIN "MENU" 

4830 A=CALL (10608, 25 )\A=CALL (10608, 11 )\GOTO 180 
484 0 ! 

4850 ! 

4860 !"********* ERROR INSUFFICIENT FUEL*********** " 

4870 ! "RE-INPUT INIT.FUEL: ", 

4880 INPUT " " , G 9 
4890 IF G9>G 1 THEN 4180 
4 900 .'"ILLEGAL ENTRY” 

4910 OUT 2,31 
4920 OUT 2,31 
4 93 0 OUT 2,31 
4940 OUT 2,29 
4950 GOTO 4870 
4 960 I 
4970 ! 

4980 '"********* ERROR DIST EXCEEDS MAX RANGE **********" 

4990 FOR R=1 TO 600 
5000 NEXT R 
5010 OUT 2,25 
5020 OUT 2,11 
5030 GOTO 760 
5040 END 

50 50! TAB (2 9) , E2 , TAB (35) ,T3,TAB(41) ,C ( A9 ) *10 0 , TAB (47 ) ,R1,TAB(56) ,R2 
5060!%#4F2,E2,TAB(35) , %#6F2, T3, TAB (4 2 ) , %# 51 , C ( A9 ) *100 , TAB (50 ) ,%#4F1,R1 
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5.6 AIRCRAFT PERFORMANCE PROGRAMS 

FIGURE 5.6-1 AIRCRAFT PERFORMANCE PROGRAM HIERARCHY FLOW DIAGRAM 



EACH MODULE IS FULLY SELF DOCUMENTED, EXHIBITING STRAIGHT 
THRU PROGRAMMING. FLOW CHARTS FOR ALL ARE SIMILAR: 
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WBS# 3056 


10 REM CLBPRF 6/1/78 

20 A=CALL (10608, 25 )\A=CALL (10608,11 ) 

30 PRINT "CLIMB PERFORMANCE MENU" 

40 PRINT " " 

50 PRINT 

60 PR INT" RATE OF CLIMB AT SELECTED ALT 1" 


70 PRINT" TIME/DISTANCE TO CLIMB 2" 

8 0 PR INT" FUEL TO CLIMB 3" 


90 INPUT X$\I F X$= ”M” THEN CHAIN "MENU" ELSE X=VAL(X$) 

100 IF X=1 THEN GOTO 130 
110 IF X=2 THEN GOTO 450 
120 IF X=3 THEN GOTO 870 
130 A=CALL (10608 , 25)\A=CALL (10608,11 ) 

140 PRINT "RATE OF CLIMB AT SELECTED ALT" 

150 PRINT " " 

160 PRINT" ASSUME: FULL THROTTLE , FLAPS UP, MIX LEANED AT 3000 FT" 

170 PR INT\PRINT 

180 PRINT "ENTER DATA:" 

190 PRINT 

200 INPUT" ALTITUDE, FT ",A1 

210 PRINT 

220 INPUT" OAT AT ALT, DEG C ",0 

230 PRINT 

240 INPUT "AIRCRAFT WEIGHT, LBS " ,W 

250 PRINT 

260 V1=2319-.731667*W 
270 V 2 =-. 07 8 533+. 00001 61 7*W 
280 V3=0-l 5+. 002 *A1 
2 90 R=V1 +V2 *A1+V3 *1 . 8 
300 R=INT (R ) 

310 PRINT "RATE OF CLIMB AT ",A1," FT = ",R," FT PER MIN" 

320 PR INT\PRINT\PRINT 


330 PRINT "CHOOSE FUNCTION: ENTER:" 

340 PRINT 

350 PRINT" RETURN TO CLIMB PERFORMANCE MENU 1" 

360 PRINT "RETURN TO AIRCRAFT PERFORMANCE MENU 2" 

370 PR INT" COMPUTE ANOTHER ROC CASE 3" 

380 PRINT" RETURN TO MASTER MENU 4" 


390 INPUT X\PRINT\PRINT 
400 IF X=1 THEN GOTO 20 
410 IF X=2 THEN CHAIN "TOPRF" 

420 IF X=3 THEN GOTO 130 

430 IF X=4 THEN CHAIN "MASTER" 

440 GOTO 330 
450 PRINT 

460 PRINT" TIME/DISTANCE TO CLIMB TO ALTITUDE" 


470 

480 

PRINT " 

PRINT 


4 90 

PRINT "INPUT DATA : "\ ! \ ! 


500 

INPUT "INITIAL ALT, FT 

" ,A1 

510 

PRINT 


520 

INPUT "FINAL ALT, FT 

" ,A2 

530 

PRINT 


540 

INPUT "OAT, DEG C 

3 

■»* 

o 

h-* 

550 

PRINT 


560 

INPUT "AIRCRAFT WEIGHT, LBS 

" ,w 

570 

VI =2319-. 731 667*W 


580 

V2=-. 078533+. 00001 61 7*W 


590 

V3=01-15+. 002 *A1 


600 

02=01-. 002 *A2+. 002 *A1 




610 V4=02-15+. 002*A2 
620 R 1=V1 +V2 *A1-V3 *1 . 8 
630 R2=V1+V2*A2-V4*1 . 8 
640 R 3 =R 1 +R 2 
650 R 4=R 3/2 
660 T 1 =A 2-A 1 
670 T=T 1/R4 
680 T2=T/60 

690 V5=47.417+.01 375*W 

700 D =T 2 *V 5 

710 T=INT (T)\D=INT (D ) 

720 PRINT 

730 PRINT "TIME TO CLIMB FROM " ,A1," FT TO ",A2,"FT = " , T , " MIN" 
740 PRINT 

750 PRINT" DISTANCE TO CLIMB = " ,D," N. MI." 

760 PRINT\PRINT 

770 PRINT "CHOOSE FUNCTION: ENTER:" 

780 PRINT 

790 PRINT" RETURN TO AIRCRAFT PERFORMANCE MENU 1" 

800 PR INT" RETURN TO CLIMB PERFORMANCE MENU 2" 

810 PR INT" RETURN TO MASTER MENU 3" 

820 INPUT X\PR INT\PRINT 
830 IF X=1 THEN CHAIN " TOPRF" 

840 IF X=2 THEN GOTO 20 

850 IF X=3 THEN CHAIN "MASTER" 

860 GOTO 770 
870 PRINT 

880 PRINT "FUEL TO CLIMB" 

890 PRINT " " 

900 PRINT\PRINT 

910 PRINT "INPUT DATA:" 

920 PRINT 

930 INPUT "INITIAL ALT, FT ",A1 

940 PRINT 

950 INPUT "FINAL ALT, FT " ,A2 

960 PRINT 

970 INPUT "AIRCRAFT WEIGHT, LBS " ,W 
980 PRINT 

990 PRINT "ENTER: 1 = FROM TAKEOFF 2 = ENROUTE CHANGE" 

1000 INPUT Cl 
1010 PRINT 

1020 Vl=-.00007936+. 000000102 *W 

1030 V2=V1 *A1 

1040 V3=V1 *A2 

1050 Fl=l. 06*2. 71828~V2 

1060 F2=l . 06*2. 71828~V3 

1070 F=F 2-F 1 

1080 F3=F*100 

1090 F3=INT(F3) 

1100 F4=F3/10 
1110 F4=INT(F4) 

1120 F =F 4/10 

1130 IF Cl=l THEN F=F+1 

1140 PRINT 

1150 PRINT "FUEL TO CLIMB FROM ",A1," FT TO ",A2," FT = ",F," GALS" 
1160 PRINT\PRINT 

1170 PRINT "CHOOSE FUNCTION: ENTER:" 

1180 PRINT 

1190 PRINT "RETURN TO AIRCRAFT PERFORMANCE MENU 1" 

1200 PRINT "RETURN TO CLIMB PERFORMANCE MENU 2" 
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1210 PRINT "RETURN TO MASTER MENU 

1220 INPUT X\PRINT\PR INT 

1230 IF X=1 THEN CHAIN " TOPRF" 

1240 IF X=2 THEN GOTO 20 

1250 IF X=3 THEN CHAIN "MASTER" 

1260 GOTO 1170 



WBS# 3056.1 

10 REM***** TOPRF PROGRAM 5/31/78 
20 A=CALL (10608, 25 )\A=CALL (10608,11) 

30 PRINT "AIRCRAFT PERFORMANCE MENU" 


4 0 PRINT" " 

50 PRINT 

60 PRINT "TAKE OFF PERFORMANCE 1" 

70 PRINT "CLIMB PERFORMANCE 2" 

80 PRINT "CRUISE PERFORMANCE 3" 

90 PRINT "LANDING PERFORMANCE 4" 

100 PRINT 

110 INPUT X$\PRINT\PRINT 


120 IF X$= "M" THEN CHAIN "MENU "ELSE X=VAL(X$) 

130 IF X=2 THEN CHAIN " CLBPRF" 

140 IF X=3 THEN CHAIN "CRSPRF" 

150 IF X=4 THEN CHAIN " LNDPRF" 

160 A=CALL (10 608, 25 )\A=CALL (10 6 08, 11) 

170 PRINT " TAKE OFF PERFORMANCE" 

180 PRINT " " 

190 PRINT 

200 PRINT "HARD SURFACE RUNWAY — WITH FLAPS UP" 

210 PRINT 

220 INPUT "OUTSIDE AIR TEMP, DEG C ",0 

230 PRINT 

240 INPUT "AIRPORT ALT, FT. ",P 

250 PRINT 

260 INPUT "TAKE OFF WEIGHT, LBS " ,W 

270 PRINT 

280 INPUT "HEADWIND, KNOTS " ,W2 

290 K=1 . 0-. 021 5*W2 

300 Al= (0-15) + . 002*P 

310 A 2=A 1/1 4.9 

320 A3=A2* . 1+1 

330 A4=K *A3 

340 B 1=-1 1 84 +1 . 14 *W 

350 A5=A4*B1 

360 Vl=-. 0000620+. 000000079*W 

370 V 2 =V 1 *P 

380 B 2=2 . 71 82 82 ~V2 

390 A6=A5*B2 

400 A6=INT(A6) 

410 PRINT 
420 PRINT 

430 PRINT "TAKE OFF DISTANCE TO CLEAR 50 FT. OBSTACLE = ",A6," FT." 


440 PRINT 

450 PR INT\PRINT 

460 PRINT " CHOOSE FUNCTION: ENTER:" 

470 PRINT 

480 PRINT "RETURN TO AIRCRAFT PERFORMANCE MENU 1 " 

4 90 PRINT "RETURN TO MASTER MENU 2" 

500 PRINT "RETURN TO TAKE OFF PERFORMANCE 3" 

510 INPUT X\PRINT\PRINT 
520 IF X=1 THEN GOTO 20 
530 IF X=2 THEN CHAIN "MASTER" 

540 IF X=3 THEN GOTO 160 
550 GOTO 460 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 


A=CALL (10608 , 25 ) \A=C ALL (10608 , 11 ) 
PRINT 

PRINT" CRUISE PERFORMANCE" 

PRINT " " 

PRINT\PRINT 
PRINT" ASSUME: 

PRINT" 


"INPUT 
" CRUISE 


'ENGINE RPM 


PRINT" 

PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 

VI =-l 04 . 60+. 07225*R 
V3=-. 000021 68 *A1 
V2=2. 17828 ~V 3 
B=V1 *V2 
B=INT (B) 

Tl=-25.92 + .0525*R 
E=2 . 71 82 8 
T 1=INT (Tl) 

U 1 = . 000 9862 *R 
U 2=. 0001 50 *R 


GROSS WEIGHT = 2300 
STANDARD TEMP." 

LEAN MIXTURE" 


DATA: "\PRINT 
ALTITUDE, FT 


WBS# 3056.2 


,A1 

/R 


250 U 3=E~U 1 

260 U 4=E~U 2 

270 U5=. 000000435 *U 4 

280 U6=E~-U5 

290 G = . 708 5 *U 3*U 6 

300 G 1=G *100 

310 G 1=INT (G 1 ) 

320 G 2=G 1/10 
330 G 2=INT (G 2) 

340 G 3=G 2/10 

350 PRINT "% BRAKE HORSEPOWER = ",B," % " 

360 PRINT 

370 PRINT" TRUE AIR SPEED = ",T1," KNOTS" 

380 PRINT 

390 PRINT "GALLONS PER HOUR = ",G3 

400 PRINT\PRINT 

410 PRINT "CHOOSE FUNCTION: 

420 PRINT 

430 PRINT "TO RETURN TO AIRCRAFT PERFORMANCE MENU 

440 PRINT "TO RETURN TO CLIMB PERFORMANCE MENU 

4 50 PRINT "TO CALCULATE ANOTHER CRUISE PERFORMANCE 

460 PRINT "TO RETURN TO MASTER MENU 

470 INPUT X\PRINT\PRINT 

480 IF X=1 THEN CHAIN " TOPRF" 

490 IF X=2 THEN CHAIN "CLBPRF" 

500 IF X=3 THEN GOTO 20 

510 IF X=4 THEN CHAIN "MASTER” 

520 GOTO 400 


ENTER,: 


n 


H CM ro 
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10 PRINT 

20 PRINT "LANDING PERFORMANCE" 

30 PRINT " " 

40 PRINT\PRINT 

50 PRINT "ASSUMES: 40 DEG FLAPS" 

60 PRINT " POWER OFF" 

70 PRINT " GROSS WEIGHT = 2300 LBS" 

80 PRINT " APPROACH = 60 KNOTS IAS" 

90 PRINT 

100 PRINT "INPUT DATA:" 

110 PRINT 

120 INPUT "AIRPORT ELEVATION, FT " , E 
130 PRINT 

140 INPUT "HEADWIND, KNOTS ",H 

150 El=2. 17828 

160 VI =1 02 *H 

170 V2=. 00002045 *E 

180 V3=V1 *1248.3 

190 V4=E1~V2 

200 F =V 3 *V 4 

210 F=INT (F) 

220 PRINT 

230 PRINT" LANDING DISTANCE OVER 50 FT OBSTACLE = ",F," FT" 
240 PR INT\PRINT 

250 PR INT" CHOOSE FUNCTION: ENTER:" 

260 PRINT 

270 PR INT" TO RETURN TO AIRCRAFT PERFORMANCE MENU .... 1" 

280 PR INT" TO RETURN TO CLIMB PERFORMANCE MENU 2” 

290 PR INT" TO CALCULATE ANOTHER LANDING PERFORMANCE .. 3" 

300 PRINT" TO RETURN TO MASTER MENU 4" 

310 INPUT X\PRINT\PRINT 

320 IF X=1 THEN CHAIN " TOPRF" 

330 IF X=2 THEN CHAIN "CLBPRF" 

340 IF X=3 THEN GOTO 10 

350 IF X=4 THEN CHAIN "MASTER" 

360 GOTO 240 
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DON'T DO IF VOR IS 
OUT OF RANGE 


VOR FIX 
FLOW CHART #2 
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VOR FIX 
FLOW CHART #3 


R = 0 



COMPUTE A MOST 
PROBABLE POSITION 
(UP TO 4 M.P.P.) 
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AVERAGE ALL POSITIONS 
FOR UPDATE 


l (ALL M.P.P. + D.R.) 


I 


NEW D.R. = 

l 

(#MPP + 1) 

\ 

r 

/WRITE NEW D.R. N 

\^TO "POSITION" FILE J 

\ 

r 

(^RETURN TO MENU^) 



VOR FIX 
FLOW CHART #4 
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WBS# 3064.1 


10 REM VORFIX 

20 REM UPDATE POSITION BY 2 VOR BEARINGS 
30 REM 

40 REM PLAN 

50 REM 1. LOAD ALL VORS FROM MAP DATA BASE. 

60 REM 2. SELECT ALL VORS WHICH ARE WITHIN l'LAT & 1 "LNG OF 
70 REM BELEIVED POSITION. 

SO REM 3. COMPUTE BEARING FROM VOR TO DR POSITION. 

90 REM 4. CORRECT BEARING FOR WHICH QUADRANT THE VOR IS IN 
100 REM WITH RESPECT TO THE DR POSITION. 

1.10 REM 5. COMPUTE DIST FROM VOR TO DR POSITION. 

120 REM 6. SELECT VOR FOR EACH QUADRANT, ONLY ONE PER QUADRANT. 

130 REM 7. TUNE RADIOS, GET ACTUAL BEARING FROM VOR. 

140 REM 8. COMPUTE DISTANCE OFF COURSE, DIST NORTH, DIST EAST. 

150 REM 9. AVERAGE LAT & LNG UPDATES FOR NEW DR POSITION, WRITE 

160 REM TO DISK, CHAIN TO A MENU OR FLTCTRL 

170 DEF FNRCX)=X*3. 141592654/180 

ISO DEF FND ( X ) =X* 180/3. 141592654 

190 DEF FNT ( X ) =S I N ( X ) /COS ( X ) 

200 REM ********** LOAD VORS FROM MAP DATA BASE ####*##*#*#***# 

210 OPEN #0, "0422" 

220 READ #0,M,P,N \REM MAG VAR, # OF VOR PARAMETERS, # OF VORS 
230 DIM VC P-1, N), V*(N#3) 

240 FOR W=1 TO N 

250 READ #0,X* \REM GET VOR NAME 

260 V$=V$+X$ 

270 FOR X=1 TO P-1 

280 READ #0,V(X,L) \REM GET VOR PARAMETERS 

290 NEXT X 

300 NEXT W 

310 N1=N 

320 CLOSE #0 

330 REM VOR PARAMETERS ARE, 

340 REM #CODE, FREQ, LAT, LNG 

350 REM ##***#**# SELECT VORS WITHIN 1 'LAT AND 1 'LNG *********** 

360 OPEN #0 POSITION 
370 READ #0, L, N 
3S0 FOR R=1 TO N1 

390 IF V(3, RXL-l OR V(3,R)>L+1 THEN 470 
400 IF V ( 4, R ) <N-1 OR VC4,R)>N+1 THEN 470 
410 S=S+1 

420 REM ******** QCR) IS QUADRANT VOR IS IN W/RESPECT TO DR ******* 

430 IF V ( 3, R ) >L AND V(4,R)>N THEN Q(R)=1 

440 IF V( 3, R) <L AND V(4,R)>N THEN Q(R>=2 

450 IF V ( 3 , R XL AND V(4,RXN THEN QCR)=3 

460 IF V ( 3 , R ) >L AND V(4,RXN THEN Q(R)=4 

470 NEXT 

4S0 FOR R=1 TO N1 

490 IF Q(R)=0 THEN 670 

500 REM ******** BCR) IS BEARING FROM VOR TO DR ************ 
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510 J2=V ( 4 » R ) -N 

520 J3=P/4+FNR ( L ) /2 

530 J4=P/4+FNR < V < 3, R ) ) /2 

540 J5=L0G ( FNT ( J3 ) ) -LOG ( FNT ( J4 ) ) 

550 J6=ATN ( ABS < FNR <-J2/ J5 ) ) ) 

560 J7=FND ( J6 ) 

570 IF Q ( R ) = 1 THEN B(R)=J7+180 
580 IF Q ( R ) =2 THEN B(R)=360-.J7 
590 IF Q ( R ) =3 THEN B(R)=J7 
600 IF Q ( R ) =4 THEN B(R)=1S0-J7 

610 REM ******** Ci ( R ) I S DIST FOR VOR Tu DR ***** *********** 


620 

IF B(R)=270 OR B(R)=90 

THEN 650 

630 

D ( R ) =60* ( L-V (3» R) ) /COS 

( FNR ( J6 ) ) 

640 

GGTU 660 


650 

D ( R ) =60* ( N- V ( 4 , R ) ) *COS 

( FNR ( L ) ) 

660 

D ( R ) =ABS ( D ( R ) ) 


670 

NEXT R 



630 FOR R=1 TO N1 

690 IF Q ( R ) =0 THEN 710 

700 ON Q < R ) GOSUB 730 , 330 , 930 , 1 030 

710 NEXT R 


720 GOTO 1190 

730 REM -a-********* VOR IN 1ST QUAD 

740 IF QlOO THEN RETURN 

750 Ql=l \REM 

760 IJ=U+ 1 

770 GOSUB 1150 

730 T=A-B(R) 

790 D1=D<R)*SIN<FNR(T> ) 

300 D2= D 1 *S I N ( FNR ( A- 1 80 ) ) \REM 
3 1 0 D3=-D 1 *COS ( FNR ( A- 1 80 ) ) \REM 
320 GOTO 1120 

330 REM ********** VOR IN 2ND QUAD 

840 IF Q2O0 THEN RETURN 

350 Q2=l \REM 

360 IJ=U+1 

370 GOSUB 1150 

380 T=A-B ( R ) 

890 D 1 =D ( R ) *S I N ( FNR ( T ) ) 

900 D2= D1*SIN(FNR( A-180) ) \REM 

910 D3= D1*C0S(FNR( A-1S0) ) \REM 

920 GOTO 1120 

930 REM ********** VOR IN 3RD QUAD 
940 IF Q3O0 THEN RETURN 
950 Q3=l \REM 

960 U=U+1 
970 GOSUB 1150 
930 T=A-B<R) 

990 D 1 =D ( R ) *S I N ( FNR ( T ) ) 

1 000 D2=— D 1#SIN( FNR ( A- 1 30 ) ) 


-a-*# * 

ONLY 1 VOR / QUAD 


DIST NORTH 
DIST EAST 

# -a-*#*#*- * 

ONLY 1 VOR / QUAD 


DIST NORTH 
DIST EAST 


■**•*•**•#■#*•*•*«•* 

ONLY 1 VOR / QUAD 


\REM DIST NORTH 



\REM DIST EAST 


1 0 1 0 D3= D 1 * COS < FNR ( A - 1 SO ) ) 

1020 GOTO 1120 
1030 REM ########## VOR IN 4TH QUAD #■*#■*■*■*##■*■*#■* 

1040 IF 0400 THEN RETURN 

1050 Q4=l \REM ONLY 1 VOR / QUAD 

1060 IJ=U+1 
1070 GOSUB 1150 
1080 T=A-B ( R ) 

1 090 D 1 =D < R ) *S I N ( FNR ( T ) ) 

1100 D2=— D 1 #S I N ( FNR ( A- 1 SO ) ) \REM DIST NORTH 
1110 D3=-D 1 #COS ( FNR < A- 1 SO ) ) \REM D I ST EAST 
1120 L(U)=L+D2/60 
1130 N ( U > =N+ ( D3 / 60 > *COS ( FNR (L) ) 

1140 RETURN 

1150 !" COMPUTED BEARING FRM VOR IS ",B(R> 

1160 ."'COMPUTED DISTANCE TO VOR IS ",D(R> 

1170 INPUT "ACTUAL BEARING FROM VOR ? ",A 

1180 RETURN 

1190 FOR R=1 TO U 

1200 L 1 =L 1 +L (U) 

1210 N1=N1+N(U) 

1220 NEXT 

1230 L1=L1/U \REM UPDATE LAT 

1240 N1=N1/U \REM UPDATE LNG 

1250 OPEN #0, POSITION 
1260 WRITE #0, LI » N1 

1270 ! "UPDATED LAT UPDATED LNG" 

1280 ) INT (LI )+(Ll-INT (LI ) >*. 6, " ",I NT(N1 >+(Nl -INTCNl ))#. 6 

1290 REM #** PUT A CHAIN HERE 
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5.8 LATERAL FLIGHT CONTROL 

FIGURE 5.8-1 FLTCTRL FLOW CHART .... FLIGHT CONTROL FLOW CHART 





AUTO PILOT LOOP DETAIL 
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WBS# 3073 


10 REM FLTCTRL 
20 REM LATERAL GUIDANCE FOR BAM 
30 LINE 80 

4 0 A=CALL (10 608 , 25 )\A=CALL (10608,11) 

50 Kl=. 02 

60 K 2=2 \REM 2 ’BANK/DEG HDG ERROR 

70 K4=l \REM AILERON GAIN 

80 K5=3600 \REM DEG/HR AILERON RESPONSE 

90 Pl=3. 141592654 

100 REM CONVERT DEG. MIN -> DECIML DEG 
110 DEF FND (X ) = INT (X ) + (X -I NT (X ) ) / . 6 
120 REM ARCSIN FUNCTION 
130 DEF FNS (S ) 

140 X=l. 57072 88-. 21 21144 *S + . 074 2 61 0 *S ~2 -. 01 872 93 *S~3 
150 X=P 1/2 -SQRT (1 -S ) *X 
160 RETURN X 
170 FNEND 

180 REM CONVERT DEGREES -> RADIANS 

190 DEF FNR (X ) = X*P 1/1 80 

200 REM TANGENT 

210 DEF FNT (X ) =SIN (X ) /COS (X ) 

220 REM ROUND TO 3 DECIMAL PLACES 
230 DEF FNF (X)=INT (X*1000+. 5)/1000 
240 B 1=1 5\B2=33\B3=50 
250 OPEN #2 , " FPDATA" 

260 DIM L (20 ) ,N(20) ,Y(50) 

270 DIM F ( 20 , 11 ) 

o ta n RPM ******************** r nan ftt pt n ic fmtfrfd ****************** 

296 Sem g i=in it fue l\h i=oat a? airpSr?\Si=winS d?recton\wi=windspeed 

300 REM T1=CRUISE %BHP\T2=ETD\P $=INIT MAP # 

310 READ #2,G1,H1,D1,W1,T1,T2,P$ 

320 REM F(R,R1) IS FLIGHT PLAN AS ENTERED IN FLTPLN & FLTPLNUP 

330 REM R (R , 1 ) = FROM WAYPOINT CODE 

340 REM F (R , 2 ) = TO WAYPOINT CODE 

350 REM F (R , 3 ) = MAG COURSE 

360 REM F (R , 4 ) = DIST NT. MI 

370 REM F (R , 5 ) = MAG HEADING (WIND CORRECTED COURSE) 

380 REM F (R , 6 ) = ETER HOURS 

390 REM F (R, 7)= EGS KNOTS (WIND CORRECTED TAS ) 

400 REM F (R , 8 )= ALT FEET 
410 REM F (R , 9 ) = RESERVES GAL 
420 REM F (R , 10 )= RESERVES HRS 
430 REM F ( R , 11 ) = TAS KNOTS 

440 FOR R=0 TO 20 \REM LOAD ORIGINAL FLIGHT PLAN 

450 FOR Rl=l TO 11 
460 READ #2 , F (R , R1 ) 

470 NEXT R1 

480 IF TYP (2 ) = 0 THEN 500 

490 NEXT R \REM NOTE R IS THE NUMBER OF WAYPOINTS 

500 REM ******************** LOAD MAP DATA BASE ******************* 

510 OPEN #0,P$ 

520 0$=P$ 

530 READ #0 ,M ,Ml , FI \ REM LOAD VOR DATA , MAG VAR 

540 DIM V(M1-1,F1) ,V$ (3) ,Z$ (Fl*3) 

550 FOR W=1 TO FI 
560 READ #0,V$ 

570 Z$=V$+Z$ 

580 FOR X=1 TO Ml-1 
590 READ #0,V(X,W) 

600 NEXT X 
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610 NEXT W 

620 READ #0,P2,F2 \ REM LOAD INTERSECTION DATA 

630 DIM T(P2-1,F2) ,N$ (5) ,R$ (F2*5) 

640 FOR W=1 TO F2 
650 READ #0 , N$ 

660 R$=N$+R$ 

670 FOR X=1 TO P2-1 
680 READ #0 , T (X , W) 

690 NEXT X 
700 NEXT W 

710 READ #0,P3,F3 \ REM LOAD AIRPORT DATA 

720 DIM A (P 3-1 , F3 ) , A$ (6) ,S$ (F3*6) 

730 FOR W=1 TO F3 
740 READ #0 , A$ 

750 S $=A $+S $ 

760 FOR X=1 TO P3-1 
770 READ #0,A(X,W) 

780 NEXT X 
790 NEXT W 

800 READ #0 , P4 , F4 \ REM LOAD ILS DATA 

810 DIM I (P4,F4) ,1$ (4) ,T$ (F4*4) 

820 FOR W=1 TO F4 
830 READ #0 , 1$ 

840 T$=I $+T$ 

850 FOR X=1 TO P4-1 
860 READ #0 , I (X,W) 

87 0 NEXT X 
880 NEXT W 

890 READ #0 , P5 , F5 \ REM LOAD NDB DATA 

900 DIM B(P5-1,F5) , B$ (4 ) ,U$(F5*4) 

910 FOR W=1 TO F5 


920 

READ #0 

/ B$ 


930 

U$=B$+U 

$ 


940 

FOR X=1 

TO P5- 

-1 

950 

READ 

#0 , B (X , 

r W) 

960 

NEXT X 




970 NEXT W 
980 CLOSE #0 

990 REM *** * ********** * END OF MAP LOAD *********************** 

1000 REM ****GET FLIGHT PATH FROM WAYPOINT N TO WAYPOINT n+1**** 

1010 FOR N=0 TO R 

1020 GOSUB 1050 \REM LOAD LAT & LNG ARRAYS 

1030 NEXT N 
1040 GOTO 1590 

1050 REM ************** SELECT WHAT WAYPOINT IS ******************** 

1060 IF F(N, 1X1000 THEN 1460 \REM WAYPT IS A VOR 

1070 IF F(N, 1X10000 THEN 1170 \REM WAYPT IS NDB OR ILS 

1080 IF F (N , 1 ) <100000 THEN 1370 \REM WAYPT IS AN INTRSECTION 

1090 FOR W=0 TO F3-1 \REM WAYPT IS AN AIRPORT 

1100 IF A ( 1 , W+l ) =F {N , 1 ) THEN 1130 


1110 NEXT W 
1120 GOTO 1540 

1130 G$=S$ (6*(F3 -W )-5,6*(F3-W)) 

114 0 L (N )=A (3 , W+l ) \REM ASSIGN LAT 

1150 N (N )=A (4 , W+l ) \REM ASSIGN LONG 

1160 RETURN 

1170 IF F(N,1)<5000 THEN 1260 

1180 FOR W=0 TO F 5-1 \ REM WYPT IS NDB 

1190 IF B(1,W+1)=F(N,1)THEN 1220 
1200 NEXT W 
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1210 GOTO 1540 

1220 G $=U $ (4 * ( F5-W) -3 , 4 * ( F5-W) ) 

1230 L (N ) =B ( 3 , W+l ) \REM ASSIGN LAT 

1240 N (N ) =B ( 4 , W+l ) \REM ASSIGN LONG 

1250 RETURN 

1260 IF F (N , 1 ) > 4 000 THEN 1290 
1270 REM B IS A NDB 
1280 GOTO 1180 

1290 FOR W=0 TO F4-1 \REM WAYPT IS AN ILS 

1300 IF I (1 , W+l ) = F (N , 1 ) THEN 1330 
1310 NEXT W 
1320 GOTO 1540 

1330 G$=T$ (4*(F4-W)-3,4*(F4-W) ) 

1340 L (N) = I (3, W+l) \REM ASSIGN LAT 

1350 N (N ) = I (4 , W+l ) \REM ASSIGN LONG 

1360 RETURN 

1370 FOR W=0 TO F2-1 \REM WAUPT IS AN INTERSECTION 

1380 IF T(l, W+l ) =F (N , 1 ) THEN 1410 
1390 NEXT W 

1400 GOTO 1540 

1410 G $=R$ (5 * ( F2-W) -4 , 5* ( F2-W) ) 

1420 L (N ) =T (3 , W+l ) \REM ASSIGN LAT 

1430 N (N ) =T (4 , W+l ) \REM ASSIGN LNG 

1440 C2=T ( 2 , W+l ) * 1 0 0 
1450 RETURN 

1460 FOR W=0 TO Fl-1 \ REM WYPT IS VOR 

1470 IF V (1 , W+l ) = F (N , 1 ) THEN 1500 
1480 NEXT W 

1490 GOTO 1540 

1500 G$=Z$(3*(F1-W)-2,3*(F1-W) ) 

1510 L (N)=V (3, W+l) \REM ASSIGN LAT 

1520 N (N)=V (4, W+l) \REM ASSIGN LONG 

1530 RETURN 
154 0 • 

1550 i "****** *error WAYPT NOT ON FILE*******" 

1560 ! 

1570 !" BOMBING OUT! CHECK WAYPOINT CODE!!" 

1580 END 


1590 REM ************* BEGIN 


1600 B 3=0 \REM 

1610 G =69552 \REM 

1620 T=l/3600 \REM 

1630 W=0 \REM 

1.64 0 L=FND (L (W) ) \REM 

1650 N=FND (N (W) ) \REM 

1660 L1=FND (L (W+l ) ) \REM 

1670 N1=FND (N (W+l ) ) \REM 

1680 C1=F(W, 3) \REM 

1690 C =C 1 -M \REM 

1700 D=F ( W, 4 ) \REM 

1710 S=F (W, 11 ) \REM 

172 0 B 1=ATN (3 *S/1 9.2) \REM 

173 0 B 1=B 1*1 80/P 1 \REM 

1740 IF Bl>45 THEN Bl=45 
1750 INPUT " IN IT HDG : " , H 
1760 ! " IN IT LAT INIT LNG 

1770 ! L," ",N," " , LI 

1780 IF W>0 THEN 1810 
1790 Y =0 
1800 GOTO 1840 


GUIDANCE AT WAYPOINT #0 ************ 

BANK ANGLE INITIALLY 0 

ACELLERATION OF GRAVITY, MI/HR~2 

1 SEC IN HOURS 

W=FROM WAYPOINT NUMBER 

INIT DEC IML LAT 

INIT DEC IML LNG 

NEXT DEC IML LAT 

NEXT DEC IML LNG 

MAG COURSE 

TRUE COURSE 

DIST FROM W(W) TO W(W+1) 

TAS 

MAX BANK ANGLE 
IN DEGREES 


FINAL LAT FINAL LNG" 
",N1," 


* 


\REM AT AIRPORT, Y=0 



GOSUB 2410 \REM 

C2=C3-C \REM 

Y =D *S IN ( FNR ( C 2 ) ) \REM 
! " IN I T DIST OFF COURSE 
J "MAX BANK ANGL=" , B1 

! " HDG " , TAB {10) , " A CONV 
! TAB (4 0) / "Y " , TA 

J "BANK" 

FOR Q=1 TO 50 \REM 

H9=H-C \REM 

Y 1=-S *SIN (FNR (H 9 ) ) \REM 

Y2=-Y/K1 \REM 

H8=FNS (-Y2/S) \REM 

H 8=H 8 *1 80/P 1 \REM 

IF H8>45 THEN H8=45 
H1=H8+C \REM 

B=K2* (H8-H9) \REM 

IF B >B 1 THEN B=B1 
B9=K 4* ( B-B 3 ) \REM 

IF B9>1 5 THEN B9=15 


\REM GET COURSE (C3) AND DIST (D) 

\REM ANGLE OFF COURSE 
\REM Y =D I S T OFF COURSE 
COURSE = " , Y 
" , B1 

A CONV A" ,TAB (20 ) ,"A CONV R " , TAB ( 3 0 ) , "D CONV A", 
, TAB (50 ) , "D BANK", TAB (60 )," BANK C” ,TAB(70), 


******* BEGIN MINOR LOOP ******* 
ACTUAL CONVERGENCE ANGLE 
ACTUAL CONVERGENCE RATE 
DESIRED CONVERGENCE RATE 
DESIRED CONVERGENCE ANGLE 
DESIRED CONV ANGLE IN DEGREES 

DESIRED TRUE HEADING 
DESIRED BANK ANGLE 

AILERON DEFLECTION COMMAND 


2010 B 3=B 3+K 5*B9*T \REM ACTUAL BANK ANGLE 

2020 Dl=S*COS (FNR (H) ) *T 

2030 L =L +D 1/6 0 \REM UPDATE LAT 

2040 D2=S*SIN (FNR (H) ) *T 

2050 N=N-D1/(60*COS (FNR (L) ) ) 

2060 IF ABS (L-L1)< .001 AND ABS (N -N 1 ) < . 00 1 THEN EXIT 2330 
2070 Y=Y+Y1*T \REM NEW DIST OFF COURSE 

2080 REM NEW HDG 

2090 H=H+ (G/S) *FNT (FNR (B3 ) ) *T*1 80/PI 

2100 Y (Q ) =Y \REM SAVE DIST OFF COURSE FOR PLOT 

2110 D=D-S*T 

2120 ! INT (H ) , TAB (10 ) , INT (H9*100 ) /100 , TAB (20 ) ,FNF (Y 1 ) ,TAB(30) , FNF (H8 ) , 
2130 ! TAB (4 0) , FNF ( Y ) , TAB (50) , INT (B*10 ) /10 , TAB (60 ) , INT (B9*10)/10, 

2140 ! TAB (70) , INT (B3*10 ) /10 

2150 NEXT Q \REM ******* END MINOR LOOP ******* 

2160 ! " END MINOR LOOPS" 

2170 LINE 80 

2180 X =Y ( 1 ) \REM FIND MAX DIST OFF COURSE 

2190 FOR 0=2 TO 50 

2200 IF ABS (X)<ABS (Y (Q)) THEN X=Y(Q) 

2210 NEXT Q 

2220 IF X=0 THEN 2240 

2230 E=79/(X*2 ) \REM TAB FACTOR TO XPAND PLOT FULL SCREEN 

2240 FOR Q=1 TO 50 \REM PLOT DIST OFF COURSE 

2250 IF Y (Q ) *E >-lAND Y(Q)*E<0 THEN Y (Q )=Y (Q ) -1/E 

2260 IF Y (Q ) > 0 THEN PRINT TAB (4 0 ),":", TAB (Y (Q ) *E+4 0 ),"* " 

2270 IF Y (Q ) <0 THEN PRINT TAB (4 0-Y (Q ) *E ) , "* " , TAB (4 0 ) , " : " 

2280 IF Y (Q ) = 0 THEN PRINT TAB(40),"*" 

2290 NEXT Q 
2300 ! " LAT = " , L 
2310 ! " LNG = " , N 
2320 GOTO 1890 
2330 W=W+1 
2340 GOSUB 1050 

2350 PRINT "FROM ",G$," TO ", 

2360 W=W+1 


2370 GOSUB 1050 
2380 !G$ 

2390 W=W-1 
2400 GOTO 1660 
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2410 REM FIND COURSE BETWEEN TWO LAT/LNG COORDINATES 
2420 J 2=P 1/4 +FNR (L 1 ) /2 
2430 J 3=P 1/4 +FNR (L ) /2 
2440 J4=FNR (N)-FNR (Nl) 

2450 J 5=LOG (FNT (J2 ) ) -LOG (FNT (J3 ) ) 

2460 J 6=ABS (J4/J5) 

2470 J 8 =ATN (J6) 

2480 C=J 8 *1 80/P 1 \REM RETURN TRUE COURSE 

2490 IF L>L 1 AND N>N1 THEN C=180-C 

2500 IF L>L 1 AND N<N1 THEN C=180+C 

2510 IF L<L 1 AND N<N1 THEN C=360-C 

2520 REM FIND DIST BETWEEN TWO LAT/LNG COORDINATES 

2530 REM NOTE THIS ROUTINE MUST BE DONE AFTER THE 40000 ROUTINE 

2540 D =6 0 * ( L -L 1 ) /COS { J 8 ) 

2550 RETURN 



6.0 CONCLUSIONS AND RECOMMENDATIONS 


The BAM design for General Aviation Aircraft has verified that a low 
cost, microprocessor based avionics system can be defined to aid the 
single pilot during IFR conditions in the low end of the General 
Aviation Aircraft spectrum. 

The design study has validated the concept of a navigation system 
utilizing waypoints stored in a navigation map data base. The concept 
of an area navigation system using dead reckoning updated by a 
navigation aid such as dual VOR has been shown to be sound. Such a 
concept for which the update method is transparent to the pilot 
provides a sound basis for future upgrades of the US navigation 
facilities such as the introduction of NAVSTAR/GPS. 

Considerable work remains to integrate all of the BAM software into an 
operationally usable system. This BAM study has been a start in that 
direction with some of the critical software modules addressed. 

A number of the software modules require a dynamic simulation 
environment to validate, which was beyond the scope of the BAM study. 
For example the VOR update requires a dynamic simulation to complete 
the VOR RNAV module. A critical module used for VOR RNAV is the VORFIX 
module which was completed during the BAM study. 

The navigation map display used a graphics module with 128 x 128 
resolution display format without high resolution alphanumer ics 
superimposed. The study showed this format to be unsatisfactory. A 512 
x 512 resolution graphics mode with superimposed alphanumerics is 
necessary for an acceptable NAV MAP display. 

The programming in BASIC using an interpreter loaded into RAM proved 
to be an effective way to develop the BAM demonstration software 
rapidly. Making changes is very easy. The disadvantage is the 
excessive memory used and the relatively slow execution time caused by 
the interpreter compared to a compiled program for example. 

Implementing the RNAV outer loop guidance in the distributed 
microcomputer (DMC) appears to be a reasonable approach. The short 
period dutch roll dynamics were not included in the closed loop 
demonstrations, however, it is not believed that including these 
dynamics would change the results since the natural frequency of the 
outer loop guidance mode is considerable lower frequency than the dutch 
roll. The DMC commands an aileron deflector to satisfy the 

lateral flight control equations. An analog yaw rate loop is closed 
in the off the shelf autopilot to provide turn coordination. 

Both the handbook checklists and IFR checklists were included in the 
BAM preliminary software. It appears that having the additional IFR 
checklists would be helpful to the single pilot during IFR to prompt 
him on procedures that a copilot would otherwise help him to remember. 
The BAM acts as a surrogate copilot. 

The following recommendations are offered as a result of the BAM design 
study: 



1. . The hardware for the NASA Langley simulation and flight test 
R&D can use the type of microcomputer hardware utilized by MILCO 
for software development provided: a. A suitable DC power supply 
is incorporated in the DM C b. Provision is made to constrain the 
cards in the DMC card cage with some appropriate mechanical 
means . 

2. The mounting of a 9 inch TV in the cockpit poses a difficult 
installation problem which could be costly. It is recommended that 
the TV be mounted on a slanted bracket located near the center of 
the control panel console. The TV longitudinal axis would be about 
60 deg relative to the horizontal with the TV display pointing up 
towards the pilot. The ADCC "telephone" keyboard data entry panel 
can be mounted near by. 

3. A dual floppy disk should be used for storing the NAV MAP data 
base and application programs during the NASA Langley R&D program 
The data base and programs can be stored on EPROMs to eliminate the 
need to fly the floppy disks during the mature stages of the R&D 
program. However, there should be no problems in flying the floppy 
disks. The advantage of using floppy disks is the ease of making 
software changes during the R&D. The use of EPROMs makes changes 
much more difficult. 

4. The operational software should be written in a higher order 
language such as FORTRAN IV which has an efficient microcomputer 
oriented compiler. The compiler should be resident in the 8085 
microcomputer rather than use a cross compiler. MILCO has acquired a 
true FORTRAN IV compiler from MICROSOFT which will operate on the MILCO 
8085 microcomputer, however the compiler was not used during the BAM 
design program. The translation of BASIC into FORTRAN IV is a fairly 
straight forward process. 

5. The low cost electropneumatic sensors developed by NASA Langley 
are recommended for the BAM dead reckoning sensors. Tlie availability 
of a good low cost true airspeed sensor significantly simplifies the 
sensor computations. MILCO presented and alternate method based on 
absolute and differential pressure transducers and OAT transducer to 
compute TAS in the midterm briefing. 

6. A parallel data bus is recommended rather than a serial bus in 
order to have a moderate byte data rate without using very high serial 
bit rates. MILCO has found that components to implement the IEEE 488 
bus are currently more available and considerably cheaper than the 
components to implement the 1553 bus. 

7. It is recommended that the three navigation radios be placed on the 
IEEE 488 bus to redice the number of wires from the navigation radios 
from 96 to 16 wires. This would require building a IEEE 488 bus 
interface unit located adjacent to the radios. 

8. It is recommended that the BAM be implemented for simulation and 
flight test by NASA Langley as a cost effective avionics research 
tool . 
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APPENDIX A LATERAL DIRECTIONAL TRANSFER FUNCTIONS FOR AIRPLANE "A" 

The lateal directional transfer functions for airplane "A" presented in 
this section can be used for point stability analyses of the flight 
control equations presented in section 2.5. The level of effort on the 
BAM design did not permit a detailed stability design of the BAM 
lateral flight control system. 

Figure A-l and A-2 presents the lateral transfer functions in terms of 
the aircraft stability. 

The numerical values for aircraft A stability derivatives at two flight 
conditions: cruise at 5000 feet and approach are taken from reference 1 

and attached for reference as tables A-10, A-12, and A-14. 



FIGURE A-2 LATERAL DIRECTIONAL TRANSFER FUNCTION IN TERMS OF STABILITY DERIVATIVES 
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figure A-i LATERAL- -DIRECTIONAL 'AIRPLANE TRANSFER FUNCTIONS 



MILCO INTERNATIONAL, INC. 
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Table A.12 Dynamic Stability Characteristics 
”™~ of Airplane A. (Approach ) ~ 
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Table A.l4 Transfer Functions for Airplane A. 
Flight Condition: Cruise, 5,000 ft, 219 ft/sec 
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Table A.lA (cont'd) Transfer Functions for Airplane A. 

Flight Condition: Cruise, 5. OQQft, 219 ft/sec 
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